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prólogo 


En lA actualidad, son ya muchas las personas que poseen un mi- 
croordenador personal en sus casas, pero generalmente, se limitan en la - 
mayoría de las ocasiones, a utilizar el micro únicamente para la ejecución 
de juegos, y pocas cosas más; ya que cuando tratan de realizar sus propios 
programas, se encuentran, muchas veces, con grandes dificultades, producien 
doles un sentimiento de incapacidad, que con frecuencia, les lleva a dejar 


a un lado al microordenador. 


Ahora bien, de la misma forma que todos estamos familiarizados 
a conducir un vehículo, ver la televisión, oir un transistor, etc, y no por 
ello, conocemos con profundidad como funciona el motor de un coche, o como 
es posible que lleguen hasta nuestra Casa imágenes que se están produciendo 
a miles de kilómetros, o que complicados mecanismos hacen que una Cajita pe 
queña, nos permitan oir voces que se emiten a cientos de kilómetros, etc, 
pues bien, de la misma forma, debe ser posible utilizar nuestro microordena 
dor, sin tener grandes conocimientos de informática, sin más que servirnos 


de los programas que otras personas realizan para nosotros. 


Es esta una de las ideas iniciales que nos indujo a la realiza- 
ción de este libro, junto con la consideración de que la producción en Es- 
paña de sofware es muy reducida y practicamente se restringe a programas de 
contabilidad, cálculo de estructuras, etc, oO programas aislados de Matemáti 
cas que generalmente, están traducidos del inglés, y que en muchas ocasio- 


nes son de dudosa utilidad. 


Por ello y por nuestra relación con el mundo de las Matemáticas 
nos ha parecido muy interesante aplicar el micro a multitud de situaciones 


concretas, con las que se enfrenta un estudiante en la soledad de su cuarto. 


Y 
1 Asi por ejemplo, calcular: y > + 3 A o bien hallar el valor 
de / 


e* sen x dx, O hallar los parámetros estadísticos que caracteri- 


o) . A e E p 
zan a una distribución unidimensional de datos agrupados, etc. 


El alumno realiza el ejercicio pero, en muchas ocasiones, no 
sabe si está bien, cuando tiene a su lado un "trasto" (microordenador) que 
convenientemente programado le puede servir de "profesor particular" guian 
dole en sus éxitos y mostrándole sus errores. Además de esta manera, puede 
familiarizarse con procedimientos que, a pesar de muchos, han de implantar 


se con carácter generalizado en la enseñanza. 


Si además el usuario es de aquellos que empiezan a ser capaces 
de realizar sus propios programas, estos listados le pueden servir de guía 
y ejemplo, que con certeza, pronto será capaz de mejorarlos y hacerlos más 


suyos. 


Asi pues, este libro se ha iniciado con el Análisis Matemático 
seguido del Cálculo de Probabilidades y la Estadísticá% desarrollando sis- 
temáticamente aquellas cuestiones que, con más frecuencia, se utilizan y 
que se hacen más susceptibles de ser tratadas con los microordenadores per 


sonales.. 


Ya desde estas páginas, anunciamos la próxima aparición de otro 
libro dedicado al Algebra y la Geometría, con una "filosofía" totalmente 


análoga a este. 


Por último nos queda pedir disculpas por los errores tipográfi- 
cos que se hayan podido "escapar", asi como los de programación, aceptando 
de antemano, con mucho gusto, todas las sugerencias que se nos hagan en es 
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te sentido. 


El autor 


advertencias de interés 


Los programas de este libro han sido probados y ejecuta 
dos en un microordenador NEW BRAIN, pero todos ellos pueden ser rea 


lizados, en cuanto a su extensión, en cualquier micro. 


Hemos procurado utilizar un BASIC común a todos los mi- 
cros, con el fin de que estos programas puedan ser ejecutacos en 
cualquier microordenador de los existentes actualmente en el merca 
do, pero es posible, que en algunos programas sea necesario, intro 
ducir algunas modificaciones con arreglo al BASIC concreto de su 


micro. 


Por ello vamos a exponer a continuación algunas de estas 
ideas. 
1.- LET: Hoy en dia es muy frecuente en casi todos los microordena- 
dores, poder hacer asignación de variables en la forma: 
120 A = B*C 
pero todavía existen algunos micros, para los que es necesario 
escribir: 120 LET A = B*C 


2.- ON GOTO : Si por ejemplo en ouuna linea figura: 
50 ON L GOTO 100,200,300 

quiere decir que, según L sea igual a 1, 2 Ó 3, se transferirá 
la ejecución a las lineas 100, 200 Ó 300. Como algunos micros 
no permiten esta instrucción de bifurcación múltiple, se puede 
cambiar por: 50 IF L=1 THEN GOTO 100 

52 IF L=2 THEN GOTO 200 

54 IF L=3 THEN GOTO 300 


3.- IF THEN : Algunos ordenadores solo admiten después de IF 
THEN, poner GOTO n*de linea, en cambio alaunos permiten hacer: 
60 IF B=1 THEN PRINT A 
o también 80 IF A=3 THEN L=A*B 
En estos programas se ha utilizado en escasas ocasiones esta úl 
tima posibilidad, si su aparato no lo admite, modifíquelo con 


arreglo a lo expuesto. 


4.- La función RND, no se utiliza del mismo modo en todo los micros, 


por ello repase con cuidado el manual del suyo. 


5.- Se ha procurado casi siempre, incluir en cada linea una única 


instrucción, pero en algunas ocasiones hemos puesto: 


100 PRINT: A=0 

Si su ordenador no lo permite, modifiquelo del siguiente modo: 
100 PRINT 
102 A=0 


6.- En algunas ejecuciones se han obtenido resultados como: 
1.5436783E-9, o bien -3.45243546E-12, evidentemente estos nú 
meros son aproximaciones al número cero. Asi pues, como tal he 


mos de tomar estos valores. 


7.- Se ha procurado que los programas sean cortos y sencillos, aho 
ra bien se podrían mejorar desde el punto de vista informático 


pero probablemente, perderían claridad desde el punto de vista 
matemático. 


8.- Intencionadamente, no se ha incluido ningún programa sobre grá 
ficos, dado que las instrucciones sobre gráficos, difieren mu- 
cho de unos ordenadores a otros. 


9.- En general, no se ha incluido ninguna sentencia sobre el "borra 
do de la pantalla", para que sea el usuario el que en cada caso 


utilize esa posibilidad a su gusto. 


10.- Si lo desea puede omitir todas las lineas que empiezan por REM 
ya que unicamente sirven para proporcionar información sobre el 
programa , pero el micro no las lee y además ocupan memoria. 


11.- En caso de que, tras escribir cuidadosamente el programa y al 
ejecutar este, les proporcione mensaje de error, o resultados 
sensiblemente distintos, revise nuevamente, linea a linea, ca- 
rácter a carácter, su listado y el del libro, revise las adver 
tencias anteriores, tenga cuidado en no confundir cero con O, 

1 con I, 2 con Z, 5 con S, y U con V., después de todo esto 
el programa deberá funcionar. Si a pesar de todo, el programa 
no "funciona", le aconsejamos que: lo deje de momento, para con 
tinuar con ello al cabo de unas horas, o bien lo revise con 
otra persona, o lo ponga en manos de alguien que sea capaz. de 
detectar el fallo, pues generalmente será muy fácil, pero a ve 
ces, pueden ser extraordinariamente sutiles. Únicamente con mu 
cha experiencia, habilidad y conocimiento profundo del BASIC de 


su micro será posible detectar estas sutilezas. 


Ahora bien, esperamos que estas últimas advertencias no le ocurran 
prácticamente nunca, y deseamos que pueda Vd disfrutar de su micro 


sacándole todo el partido posible. 


PROGRAMAS 
DE 


ANALISIS 
MATEMATICO 
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atea 


INTERES SIMPLE 


introducción: 


Este programa sirve para calcular el capital final CF, en que se con 
vierte un capital inicial CI, colocado al interés simple, siendo R el tanto 
por ciento anual, y T el número de años. 

La expresión del capital final a interés simple anual es la. siguiente: 
_ CEL (LAR T/100) 

Este programa permite hallar,igualmente,el capital final colocado a 

interés simple mensual o diario, con arreglo a las siguientes expresiones: 
CF = CI (1 + R M/1200) (M = n*de meses) 
Cr = CI (1 + R D/36000) (D 


n*de dias) 


listado del programa: 


o] 


REM RRRROROOOOOOSOROROOCOOIOOOIOIOAOOO RIOR OO IRONIA ION RR RIOR AAA 


1 

ZO REM 

30 REM INTERES S 1 MmePLE 

40 REM a 

30 REM ANUAL NENSOUAL Y DIARIO 
60 REM 

PO REM RRA NRORORDOROAROROROAROOROOOROO REO MIRROR AA AAA AA 
100 PRINT ! 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :” 

120 PRINT ; 

130 PRINT 

1940 PRINT * 1. INTERES SIMPLE ANUAL” 

150 PRINT * 2.- INTERES SIMPLE MENSUAL" 

160 PRINT " 3.- INTERES SIMPLE DIARIO” 

170 PRINT 

1230 PRINT 

100 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT P 

210 ON P GOTO 219,319,3919 

219 REM - CALCULO DEL INTERES SIMFLE ANUAL - 

220 PRINT "CAPITAL INICIAL Cl ="; 

230 INPUT CI 

240 PRINT "TANTO POR CIENTO ANUAL R ="*; 

250 INPUT R 

260 PRINT "NUMERO DE ANOS T="5 
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270 INPUT T 
2280 CF= CIX(14+4FRXT/100) 
2720 PRINT 
7300 PRINT "EL CAPITAL FINAL AL CABO DE";T3"AÑOS ES : CF =";,CF 
310 GOTO 520 
719 REM - CALCULO DEL INTERES SIMPLE MENSUAL - 
320 PRINT "CAFITAL INICIAL CI =";5 
330 INPUT CI 
340 PRINT "TANTO FOR CIENTO ANUAL R ="; 
350 INPUT R 
760 PRINT "NUMERO DE MESES M =";5 
370 INPUT M 
38c CF= CIX(1+RXM/1200) 
399 "PRINT 
400 PRINT "EL CAPITAL FINAL AL CAEO DE”"3i3 "MESES ES : CF =";,CF 
3410 GOTO 520 
319 REM - CALCULO DEL INTERES SIMPLE DIARIO - 
920 PRINT "CAFITAL INICIAL Cl ="; 
430 INFUT CI 
440 PRINT "TANTO POR CIENTO ANUAL -R ="5 
459 INFUT R 
950 PRINT "NUMERO TZ DIAS D="; 
970 IMFUT D 
420 CF= CIX(14+RXD-36009) 
470 PRINT 
500 PRINT "EL CAPITAL FINAL AL CABO DE"¿D; "DIAS ES : CF =";,CF 
10 GOTÚ 520 
=20 REM - PARA FEALIZAR MAS CALCULOS - 
' PRIMT 
PRINT 
PRINT 
2 PRINT 
70 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OFCIONES 7 S5/N”;5 
520 INFUT Cs$ 
590 IF CS=*"N" THE 
60 GOTO 10€ 
€¿10 END 


A CN 


30 
30 


A! 


Al 
Z 
DO 
=)) 
| 
n 
c 
be 
O 


ejercicios resueltos: 


1. Un padre al nacer su hijo mayor ingresa 100000 ptas en un Banco al 
interés simple anual y al 12% . ¿Cuál será el capital formado cuando el hi 
jo tenga 25 años?. 

SOLUCION : 


ESTE PROGRAMA LE FERMITE CALCULAR : 


1.- INTERES SIMPLE ANUAL 
2.- INTERES SIMPLE MENSUAL 
Z.- INTERES SIMPLE DIARIO 


SEGUM LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
CAPITAL INICIAL CI =? 100060 

TANTO POR CIENTO ANUAL R =7? 12 

NUMERO DE ANOS T =? 25 


EL CAPITAL FINAL AL CABO DE 23 AÑOS ES : CF = 400000 
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Le Un comerciante impone por espacio de 65 meses, un millón de ptas en 
un Banco a un 7% de interés simple anual. ¿Qué cantidad de ptas tendrá al 
cabo de los 65 meses?. 

SOLUCION :: 


ESTE PROGFAMA LE PERMITE CALCULAR : 


«7 INTERES SIMPLE ANUAL 
«7 INTERESE SIMPLE MENSUAL 
«2 INTERES SIMPLE DIARIO 


dd ty 


SEGUN LA APCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
CAPITAL INICIAL CI =? 1000000 

TANTO POR CIENTO ANUAL R =7? 2? 

NUMERO DE MESES M <=? 65 


El CAFITAL FINAL AL CABO DE 645 MESES ES : CF = 1379166.7 


3. Durante 20000 dias una persona coloca un capital de 20000 ptas al 
8.5% de interés simple anual. ¿Cuál será el capital final?. 
SOLUCION: 


COSTE PROSRAMA LE FERMITE CALCULAR : 


INTERES SIMPLE ANUAL. 
INTERES SIMPLE MENSUAL 
¿2 INTERES SIMPLE DIARIO 


A 


SEGUN LA CPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 
CAPITAL INICIAL CI =7? 20000 
TANTO FOR CIENTO ANUAL R =7? 8.5 


NUMERO DE DIAS D =? 20000 


EL CAPITAL FINAL AL CABO DE 20000 DIAS ES : CF = 119949. 4+ 


INTERES COMPUESTO 


introducción: 


Este programa sirve para estudiar el interés compuesto, permitiendo 


realizar las siguientes opciones: 
1.- Cálculo del capital final CF 
2.- Cálculo del capital inicial CI 


3.- Cálculo del tanto por ciento anual R 
4.- Cálculo del número de años T. 


La expresión del capital final es la siguiente: 


EF = CI(1 + R/100)* 


De esta expresión se deducen todas las demás para realizar los cálculos de 


las otras opciones. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
219 
220 
230 


REM IRA 9000009090000 000 


REM 
REM 
REM 
REM 
REM 


INTERES COMPUESTO 


REM III OASIS FOOT III FRI FEET FI IRF RIERA A A 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 


"ESTE PROGRAMA LE PERMITE CALCULAR :" 


CAPITAL FINAL" 
CAPITAL INICIAL" 
TANTO POR CIENTO ANUAL" 
NUMERO DE AÑOS" 


"SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE 


" > EL 
e Zi = EL 
. 3a= EL 
Y 4. = EL 
P 


ON P GOTO 219,319,419,519 
CALCULO DEL CAPITAL FINAL - 
"CAPITAL INICIAL CI ="; 


REM - 
PRINT 
INPUT 


CI 


PRECEDE"; 


240 
250 
260 
270 
280 
290 
300 

310 
319 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
419 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
519 
520 
530 
540 
550 
560 
570 
580 
590 
£00 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
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PRINT "TANTO POR CIENTO ANUAL R ="; 


INPUT R 

PRINT "NUMERO DE AÑOS  T ="; 

INPUT T 

CF= CIX*(1+R/100)*T 

PRINT L 

PRINT "EL CAPITAL FINAL AL CABO DE";¡T5"ANOS ES : CF =";CF 
GOTO 630 

REM - CALCULO DEL CAPITAL INICIAL - 

PRINT "CAPITAL FINAL CF ="; 


INPUT CF 

PRINT "TANTO POR CIENTO ANUAL R ="; 
INPUT R 

PRINT "NUMERO DE ANOS  T ="; 

INPUT T > 

ClI= CF/((1+R/100)”T) 

PRINT 

PRINT "EL CAPITAL INICIAL ES CI ="3CI 
GOTO 6430 

REM - CALCULO DEL TANTO POR CIENTO ANUAL - 
PRINT "CAPITAL INICIAL Cl ="; 


INPUT CI 

PRINT "CAPITAL FINAL CF ="; 

INPUT CF 

PRINT "NUMERO DE ANOS TI="; 

INPUT T 

R=(-1+(CF/CI)*(1/T))X100 

PRINT 

PRINT "EL TANTO POR CIENTO ANUAL ES : R ="3R3"%" 
GOTO 630 


REM - CALCULO DE NUMERO DE ANOS - 
PRINT "CAPITAL INICIAL cl ="; 


INPUT CI 

PRINT "CAPITAL FINAL CF ="; 
INPUT CF 

PRINT "TANTO POR CIENTO ANUAL RR ="; 
INPUT R 

PRINT 
T=(LOG(CF)-LOG(CI))/LOG(1+R/100) 
PRINT 

PRINT "EL NUMERO DE ANOS ES T ="3T 
PRINT 

REM - PARA REALIZAR MAS CALCULOS - 
PRINT 

PRINT 

PRINT 

PRINT 


PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S/N"; 
INPUT Cs$ 

IF C$="N" THEN GOTO 720 

GOTO 100 

END 


ejercicios resueltos: 
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1. Se calcula que un bosque tiene 24000 m> de madera y que aumenta en 


un 3,5% anual al interés compuesto. ¿cuántos años habrá de transcurrir pa- 


ra que tenga 36265,64 m> de madera?. 
LUCION: 


so 
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ESTE PROGRAMA LE PERMITE CALCULAR : 


1.- EL CAPITAL FINAL 
2.- EL CAPITAL INICIAL 

3.- EL TANTO POR CIENTO ANUAL 
4.- EL NUMERO DE AÑOS 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
CAPITAL INICIAL cl =? 24000 

CAPITAL FINAL CF =? 3ó265.63 

TANTO FOR CIENTO ANUAL R =? 3.5 


EL NUMERO DE AÑOS ES T= 11.999994 


E ¿Qué capital inicial, prestado al 2% de interés compuesto durante 6 
años, se convertirá en 750 ptas?. 
SOLUCION: : 


CAPITAL FIMAL CF =? 750 
TANTO POR CIENTO ANUAL R =? 2 
NUMERO DE AÑOS T=?6 


EL CAPITAL INICIAL ES CI = 665.97254 


dea que tanto por ciento anual al interés compuesto se han de colocar 
300000 ptas para que al cabo de 3 años se hayan convertido en 357306 ptas. 
SOLUCION: 


CAPITAL INICIAL CI =”? 300000 
CAPITAL FINAL CF =7? 357306 
NUMERO DE ANOS T=?3 


EL TANTO POR CIENTO ANUAL ES : R = 6.00011837 % 


TABLAS DE INTERES COMPUESTO 


introducción: 


Este programa sirve para imprimir tablas que proporcionen el valor 
a que se convierte una peseta colocada al R% anual durante T años. 
Por tanto es el valor de la expresión: (1 + R)*. 

En la linea 150 se pondrá el tanto por ciento anual deseado y en la 
linea 190 el periodo de años para el que se desea realizar el cálculo, en 


nuestro caso lo hemos hecho para los primeros 50 años. 


listado del programa: 


10 REM 2832309090022 0200002220202020220202222022222292022222228202822022909020290N00N0N00N00000N0N0016% 
20 REM 


3O REM TABELA DE (1 + R)T PARA EL 

40 REM 

50 REM CALCULO DEL INTERES COMPUESTO 
60 REM 


A EEES 
100 PRINT 

110 PRINT " VALOR DE (14+R)”T" 

120 PRINT 

130 PRINT "4899492209222 0220209222028222092220202222222202220092222229292292209229N0092092902% 
IAHAAIAAA 

140 PRINT 

150 PRINT"NUM. DE AÑOS","4%",."6%","8%", "10%" 

160 PRINT 

170 PRINT "RRA 
RAAKAAAAAA 

180 PRINT 

190 FOR T=1 TO 50 

200 A=(1+.,04)*T 

210 E=(1+.06)*T 

220 C=(1+,08)*T 

230 D=(1+.10)*T 

240 PRINT T,A,B,C,D 

250 NEXT T 

260 END 
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1. Construir una tabla que exprese en que se convierte una peseta al 
43, 6%, 8% y 10% 
SOLUCION : 


de interés compuesto durante los primeros cincuenta años. 


VALOR DE (1+R)”T 
HONRAR RIN M NIN INN III INIA III NI RAMNOIINRIMIIIIINIOIIIIIIIIIIIININRA 
ANOS 4% 6% 8% 10% 


IRONIA III III IAAAEA 


1 1.04000000 1.06000000 1.03000000 1.10000000 
2 1.08160000 1.12360000 1.16640000 1.21000000 
3 1.124286400 1.19101600 1.25971200 1.33100000 
4 1.164985856 1.26247696 1.3604889%é 1.46410000 
5 1.216652%90 1.33822558 1.46932808 1.61051000 
ó 1.2ó6531902 1.41851911 1.58687432 1.77156100 
? 1.31593178 1.50363026 1.713232427 1.242871710 
2 1.362856905 1.5932482808 1.285093021 2.14358881 
9 1.42331181 1.68947296 1.99900463 2.35794769 
10 1.43024429 1.79084770 2. 15892500 2.59374246 
11 1.53945406 1.87827856 2.33163900 2.85311671 
12 1.60103222 2.01219647 2.51817012 3. 138242838 
13 1.66507351 2.13292226 2.71962373 3. 45227122 
149 1.73167645 2.26090396 2.93719363 3.79749839 
15 1.30094351 2.39655819 3.17216912 4.17724818 
16 1.87298125 2.54035169 3.42594265 4.59497299 
1? 1.24790050 2.69277279 3.70001806 5.05447029 
18 2.02581652 2.85433916 3.?29601951 5.55991732 
19 2.10684918 3.02559951 4.31570107 6.11590906 
yd 0) 2.191123139 3.20713548 4.66095715 6.72749996 
21 2.27876807? 3. 37956360 5. 03383372 7. 40024996 
22 2.36991879 3. 60353742 5.436594042 8.14027495 
23 2.46471554 3.81974967 5.87146366 32.9534302495 
24 Zo 5Ó330417 4.04893465 6.34118075 9.84923270 
25 2.66583633 4.29187073 6.24847321 10.33470597 
26 2.77246979 4.54938297 7139632 11.91817657 
27? 2.28336€58 4.282234595 7. 728806149 13.10999422 
28 2. 99870332 5.11168670 8.62710641 14. 42099365 
29 3.11865145 5. 41838791 9.31727492 15.86309301 
30 3.24339751 5.74349118 10.06265691 17.44940232 
31 3.327313341 6.08310065 10.36766947 19.19434255 
32 3. 50805875 6. 45338669 11.73708302 21.11377681 
33 3.64838110 6.84058989 12.67604966 23.22515449 
34 3.79431635 7.253102529 13.69013364 25.54766995 
35 3.94608900 7.68608680 14.73534433 28.10243694 
36 4.10393256 8.14725201 15.96817188 30.912ó68064 
37 4.26208986 32.63608713 17.24562563 34,.00394870 
38 4. 43881346 9.15425236 13.62527568 37.40434358 
39 4.61636600 9.70350751 20.11529779 41.14977795 
40 4. 80102064 10.28571795 21.72452156 45. 25925574 
41 4.99306146 10.?0286104 23. 46248328 49. 78518133 
42 5.19278392 11.55703269 25. 33948195 54. 76369947 
43 5.40049528 12.25045466 27. 36664050 60.24006941 
44 5.61651509 12.98548194 29.35597175 66. 26407637 
45 5.84117569 13.76461085 31.92044948 72.89048399 
46 6.07482272 14.59048751 34.47408545 80. 179353242 
47 6.31731563 15.46591676 37.23201229 388.19748566 
48 6.57052826 16.39387177 40.21057327 97.01723424 
49 6.23334939 17.37750907 43.42741913 106.7189577 


7.10668336 


18.42015432 


46.90161267 


117.39085349 


ANUALIDADES DE AMORTIZACIÓN 


introducción: 


El presente programa sirve para calcular la anualidad de amortiza- 


ción que es una cantidad fija que se paga al final de cada año, para extin 


guir con estas anualidades y sus intereses (compuesto) el importe de una 


deuda contraida y los intereses por ella producidos. 


La 


De 


El programa permite calcular las siguientes opciones: 
1.- La anualidad de amortización A 
2.- La deuda contraida D 
3.- El numero de años  T 


expresión que nos da la anualidad de amortización es la siguiente: 


DR (1 + pg)" 
(1 *m* - 1 


esta expresión se deducen las demás para efectuar los cálculos de las 


A = 


otras opciones. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM HIRO 
REM 
REM 
REM ANUALIDADES DE AMORTIZACION 
REM 
REM 
REM RIIIE III III 
PRINT 

PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :" 

PRINT 

PRINT 

PRINT " 1.- LA ANUALIDAD DE AMORTIZACION” 

PRINT " 2.- LA DEUDA CONTRAIDA” 

PRINT " 3.- EL NUMERO DE AÑOS" 

PRINT 

PRINT 

PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 

INPUT P 
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210 ON P GOTO 219,319,419 
219 REM - CALCULO DE LA ANUALIDAD DE AMORTIZACION - 
220 PRINT "DEUDA CONTRAIDA D ="; 

230 INPUT D 

240 PRINT "TANTO FOR CIENTO ANUAL R ="; 

250 INPUT R 

260 PRINT "NUMERO DE AÑOS T a”; 

270 INPUT T . 

280 A=(DXR/100%(1+R/100)*T)/((1+R/100)*T -1) 

290 PRINT 

300 PRINT "LA ANUALIDAD NECESARIA PARA CANCELAR LA DEUDA CONTRAIDA ES : A ="3A 
310 GOTO 530 

319 REM - CALCULO DE LA DEUDA CONTRAIDA - 

320 PRINT "ANUALIDAD DE AMORTIZACION A ="; 

330 INPUT A 

340 PRINT "TANTO POR CIENTO ANUAL R ="; 

350 INPUT R e 

260 PRINT "NUMERO DE ANOS T="; 

370 INPUT T 

380 D=(AX((1+R/100)7*T -1))/((R/100)%(1+R/100)”T) 
390 PRINT 

400 PRINT "LA DEUDA CONTRAIDA ES D ="5D 

410 GOTO 530 

419 REM - CALCULO DE NUMERO DE ANOS 

420 PRINT "ANUALIDAD A PAGAR A ="; 

430 INPUT A 

440 PRINT "DEUDA CONTRAIDA D =*"; 

450 INPUT D 

460 PRINT "TANTO POR CIENTO ANUAL R ="; 

470 INPUT R 


480 PRINT 

490 T=(LOG(A)-LOG(A-DXR/100))/LOG(1+R/100) 
500 PRINT 5 

510 PRINT "EL NUMERO DE ANOS ES T ="3T 


520 GOTO 530 

530 REM -— PARA CONTINUAR - 
540 PRINT 

550 PRINT 

560 PRINT 

5720 PRINT 

580 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S/N"; 
590 INPUT Cs$ 

600 IF C$="N" THEN GOTO 6420 
610 GOTO 100 

620 END 


ejercicios resueltos: 


1. ¿Cuál será la anualidad que habra que pagar durante dos años para 
amortizar una deuda de 93633,39 ptas junto con sus intereses al 4,5% anual? 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
DEUDA CONTRAIDA D =? 93633.39 

TANTO POR CIENTO ANUAL R =7? 4.5 

NUMERO DE AÑOS  T=? 2 


LA ANUALIDAD NECESARIA PARA CANCELAR LA DEUDA CONTRAIDA ES : A = 50000.001 
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¿A ¿Cuál será la deuda contraida por una persona que se compromete a 
pagar una anualidad de 367,2 ptas durante tres años, sabiendo que la deuda 
se incrementa con sus intereses al 5% anual?. 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
ANUALIDAD DE AMORTIZACION A =? 367.2 

TANTO POR CIENTO ANUAL R =? 5 

NUMERO DE ANOS =? 7 


LA DEUDA CONTRAIDA ES D = 299.97668 


3. ¿En cuantos años se amortizará una deuda de 50000 ptas al 6% anual 
sabiendo que la anualidad que se paga al final de cada año es de 14429,5 
ptas?. 


SOLUCION :: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
ANUALIDAD A PAGAR A =? 14429.5 

DEUDA CONTRAIDA D =? 50000 

TANTO POR CIENTO ANUAL R =? 6 


EL NUMERO DE ANOS ES T = 4.0000233 


ANUALIDADES DE CAPITALIZACION 


introducción: 


El presente programa sirve para calcular las anualidades de capitali 
zación que son unas cantidades fijas que se pagan al principio de cada año 
para formar junto con sus intereses ( compuesto) un capital al cabo de un 
cierto número de años. 

El programa permite calcular las siguientes opciones: 

1.- La anualidad de capitalización A 
2.- El capital C formado al cabo de T años 
3.- El número de años T. 

La expresión que nos da el capital final formado es la siguiente: 


_A (14 RU Ro 1) 
R 


[e 


De esta expresión se deducen las demás para efectuar los cálculos de las 
otras opciones. 


listado del programa: 


LO REM IRRRRRICORIOIRIORIORARIRIRRIRIRII ORIO 
20 REM 

ZO REM 

40 REM ANUALIDADES DE CAPITALIZACION 

50 REM 

60 REM 

70 REM IRRMIRICCOAIICICIRAAIIOIIRORIOIIIOIOIIIIIAIOOOIOOOOIIAAR 
100 FRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :” 

120 PRINT 

130 PRINT 

140 PRINT * 1.- LA ANUALIDAD DE CAPITALIZACION" 

150 PRINT " 2.- EL CAPITAL FORMADO AL CABO DE T ANOS" 

160 PRINT " 3.- EL MUMERO DE AÑOS" 

170 PRINT 

180 PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 

200 INPUT P 
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210 ON P GOTO 219,319,419 

219 REM - CALCULO DE LA ANUALIDAD DE CAPITALIZACION - 

220 PRINT "CAPITAL QUE SE DESEA FORMAR C ="; 

230 INPUT C 

240 PRINT "TANTO POR CIENTO ANUAL R ="; 

250 INPUT R 

260 PRINT "NUMERO DE AÑOS  T ="; 

270 INPUT T 

280 A=(CXR/100)/((1+R/100)%((1+R/100)*T-1)) 

2%0 PRINT 

300 PRINT "LA ANUALIDAD NECESARIA PARA FORMAR EL CAPITAL"3C;"ES : A ="; 
310 GOTO 530 

319 REM - CALCULO DEL CAPITAL FORMADO AL CABO DE T AÑOS - 
320 PRINT "ANUALIDAD DE CAPITALIZACION A ="; 

330 INPUT A 

340 PRINT "TANTO POR CIENTO ANUAL R ="; 

350 INPUT R Ñ 

360 PRINT "NUMERO DE ANOS  T="; 

370 INPUT T 

7380 C=A*X(1+R/100)X((1+R/100)*T-1)X100/R 

390 PRINT 

400 PRINT "EL CAPITAL FORMADO AL CABO DE";T;"ANOS ES : C =";C 


410 GOTO 53 E 

419 REM - CALCULO DE NUMERO DE ANOS - 

420 PRINT "ANUALIDAD A PAGAR A ="; 

430 INPUT A 
440 PRINT "CAPITAL FORMADO AL CABO DE T ANOS C ="; 
450 INPUT C 

460 PRINT "TANTO POR CIENTO ANUAL R ="; 
470 INPUT R 

480 PRINT 

487 X=(CXR/100)/(AX(1+R/100)) 

490 T=LOG(1+X)/LOG(1+R/100) 

500 PRINT y 

510 PRINT "EL NUMERO DE ANOS ES T ="; 

520 GOTO 530 

530 REM - PARA CONTINUAR - 

540 PRINT 

550 PRINT 

560 PRINT 

570 PRINT 

=00 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S/N"; 
590 INPUT Cs 

600 IF C$="N" THEN GOTI 620 

610 GOTO 100 

620 END 


ejercicios resueltos: 


1. ¿Cuál será la anualidad de capitalización que habrá de pagarse para 
que al cabo de 10 años, se forme junto con los intereses al 12% anual un 
capital de 1000000 de ptas? 

SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
CAPITAL QUE SE DESEA FORMAR C =? 1000000 
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TANTO POR CIENTO ANUAL R =? 12 
NUMERO DE AÑOS T =? 10 


LA ANUALIDAD NECESARIA PARA FORMAR EL CAPITAL 1000000 ES : A = 50278.718 


2. Una persona a los 40 años decide ahorrar al comienzo de cada año 
25000 ptas colocadas al 10% anual. ¿Qué capital tendrá al cumplir los 70 


años?. 
SOLUCION: 


SEGUN LA OPCION DESEADA. PULSE EL NUMERO QUE LE PRECEDE? 2 
ANUALIDAD DE CAPITALIZACION A =? 25000 

TANTO POR CIENTO ANUAL R =7? 10 

NUMERO DE AÑOS T =? 30 


EL CAPITAL FORMADO AL CABO DE 30 ANOS ES : C = 45235085.6 


E ¿Cuántos años habrán de trascurrir para que se forme un capital de 
1197878,8 teniendo en cuenta que se abona una anualidad de capitalización 


de 30000 ptas, y que el tanto por ciento anual es de 11,5 ? 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE FRECEDE? 3 


ANUALIDAD A PAGAR A =? 30000 
CAPITAL FORMADO AL CABO DE T ANOS C =? 1197878.8 
TANTO POR CIENTO ANUAL R =? 11.5 


EL NUMERO DE ANOS ES 7T= 15 


SUCESIONES ARITMEÉTICAS 


introducción: 


Este programa sirve para estudiar sucesiones (progresiones) aritméti 


cas. El programa permite calcular: 


1.- 
2.- 
Je 
4.- 
5.- 
6.- 


El término n-esimo AN 


La razón de la progresión D 


El término primero Al 
El número de términos N 
Interpolar H medios aritméticos entre dos términos dados 


La suma de N términos consecutivos S 


La expresión que permite hallar el término n-esimo en función del 


primero, el número de términos y la razón, es la siguiente: 


AN = Al + (N - 1) D 


De esta expresión se deduce las otras para realizar los cálculos de las 


otras opciones. 


listado del programa: 


10 

zo 

30 

40 

50 

100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 


REM RRA OSI 


REM 
REM 
REM 


PROIOGRESIONES ARITMETICAS 


REM RRA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FPRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 


"EL PRESENTE 


"1.- CALCULO 
"2.- CALCULO 
"3,- CALCULO 
"4.- CALCULO 


PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE :” 


DEL TERMINO N-ESIMO" 
DE LA RAZON" , 

DEL TERMINO PRIMERO" 
DEL NUMERO DE TERMINOS" 


"5.- INTERPOLAR H MEDIOS ARITMETICOS ENTRE DOS TERMINOS DADOS” 


"6.- CALCULO 


DE LA SUMA DE N TERMINOS CONSECUTIVOS" 


"SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 5 


P 
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290 ON P GOTO 249,349,449,5499,649, 789 
249 REM - CALCULO DEL TERMINO N-ESIMO - 
250 PRINT "TERMINO PRIMERO Al ="; 

260 INPUT Al 

270 PRINT "NUMERO DE TERMINOS N ="; 

280 INPUT N 

2920 PRINT "RAZON O DIFERENCIA D ="; 

300 INPUT D 

310 AN=A1+ (N-1)XD 

320 PRINT 

330 PRINT "EL TERMINO N-ESIMO DE LA PROGRESION ES: AN ="3AN 
340 GOTO 890 

349 REM - CALCULO DE LA RAZON - 

350 PRINT "TERMINO PRIMERO Al ="; 


30 INPUT Al 
370 PRINT "TERMINO N-ESIMO AN ="; 


380 INPUT AN 

390 PRINT "NUMERO DE TERMINOS N ="; 

400 INPUT N 

410 D=(AN-A1)/(N-1) 

420 PRINT 

430 PRINT "LA RAZON O DIFERENCIA DE LA PROGRESION ES: D =";D 
440 GOTO 890 

449 REM - CALCULO DEL TERMINO PRIMERO - 

450 PRINT "TERMINO N-ESIMO AN ="; 

460 INPUT AN 

470 PRINT "RAZON O DIFERENCIA D ="; 

480 INPUT D 

490 PRINT "NUMERO DE TERMINOS N ="; 

500 IMPUT N 

510 A1=AN- (N-1)XD 

530 PRINT "EL PRIMER TERMINO DE LA PROGRESION ES : Al =";A1 
540 GOTO 890 

549 REM - CALCULO DEL NUMERO DE TERMINOS - 

550 PRINT "TERMINO PRIMERO Al ="y 

560 INPUT Ali 

570 PRINT "TERMINO N-ESIMO AN ="3 

580 INPUT AN 

590 PRINT "RAZON O DIFERENCIA D ="; 

600 INPUT D 

610 N=1+(AN-A1)/D 

620 PRINT 

630 PRINT "EL NUMERO DE TERMINOS DE LA PROGRESION ES : N ="3MN 
640 GOTO 890 

649 REM - CALCULO DEL NUMERO DE TERMINOS - 

650 PRINT "CUANTOS MEDIOS DESEA INTERPOLAR ”; 

660 INPUT H 

670 PRINT "INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERP 
OLAR";H3"MEDIOS ARITMETICOS"; 

680 INPUT P,U 4 

690 D=(U-P)/(H+1) 

700 PRINT 

710 PRINT "LA RAZON DE LA PROGRESION ES : D ="3D 

720 PRINT 

730 PRINT "LOS MEDIOS ARITMETICOS INTERPOLADOS SON :" 
740 FOR I=1 TO H 

750 T=P+1XD 

760 PRINT T, 

770 NEXT I 

780 GOTO 890 
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729 REM - CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS 
790 PRINT "CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N =";5 
800 INPUT N 

210 PRINT "TERMINO PRIMERO al ="3 

220 INPUT Al 

230 PRINT "RAZON O DIFERENCIA D ="; 

8390 INPUT D 

850 S=NX(A1+ (N-1)X (D/2)) 

3860 PRINT 

270 PRINT "LA SUMA DE LOS”3N;"TERMIMOS CONSECUTIVOS DE LA PROGRESIÓN ES! S ="3S 
220 GOTO e90 

220 REM - PARA REALIZAR MAS CALCULOS - 

900 PRINT 

910 PRINT 

920 PRINT 

930 PRINT 

9340 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OFCIONES 2 S/N"5 
2950 INPUT Cs$ 

960 IF C*$="N" THEN GOTO 280 

970 GOTO 100 

920 END 


ejercicios resueltos: 


L, Interpolar 32 medios aritméticos entre -7 y 125. 
SOLUCION: 


EL PRESENTE PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE : 


1.- CALCULO DEL TERMINO N-ESIMO 

Z2.- CALCULO DE LA RAZON 

3.- CALCULO DEL TERMINO PRIMERO 

5.- INTERPOLAR H MEDIOS ARITMETICOS ENTRE DOS TERMINOS DADOS 
6.- CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 5 
CUANTOS MEDIOS DESEA INTERPOLAR ? 32 


INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERPOLAR 32 MED 
_10S ARITMETICOS?-? 125 
LA RAZON DE LA PROGRESION ES : D = 4 


LOS MEDIOS ARITMETICOS INTERPOLADOS SON : 


3 1 5 a 13 17 21 25 29? 33 
37 41 45 49 53 57 61 65 69 73 
28 81 35 89 93 97 101 105 109 113 
117 121 


2. El primer término de una progresión aritmética es 7 y el término 
20 es -31. Hallar la razón de la progresión. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
TERMINO PRIMERO Al =? 7 


TERMINO N-ESIMO AN =?-31 
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NUMERO DE TERMINOS N =? 20 


LA RAZON O DIFERENCIA DE LA PROGRESION ES: D =-2 


3. Sabiendo que el primer término de una progresión aritmética es 1003 
y que la razón es 59, calcular la suma de los 16 primeros términos. 
SOLUCION: 


SEGUN LA OPQION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 6 
CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N =? 16 
TERMINO PRIMERO Al =7? 1003 

RAZON O DIFERENCIA D =? 59 


LA SUMA DE LOS 1ó TERMINOS CONSECUTIVOS DE LA PROGRESION ES: S = 23128 


4. El primer término de una progresión aritmética es 1003 y la razón 
es 59, hallar el término 16. 
SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE”? 1 
TERMINO PRIMERO Al =7? 1003 

NUMERO DE TERMINOS N =? 16 

RAZON O DIFERENCIA D =? 59 


EL TERMINO N-ESIMO DE LA PROGRESION ES: AN = 1888 


SUCESIONES GEOMETRICAS 


introducción: 


tri 


Este programa sirve para operar con sucesiones (progresiones) geomé 
cas. El programa permite calcular: 


Ly 
2. 
3.- 
4.- 
5.- 
6.- 
Pe 
8.- 


El término n-esimo AN 


La razón de la progresión R 


El término primero Al 


El número de términos N 


Interpolar H medios geométricos entre dos términos dados. 


La suma de N términos consecutivos (I|RI>1) 


La suma de los infinitos términos (I|RI<1) 


El producto de N términos consecutivos. 


La expresión que permite hallar el término n-esimo en función del 
primero, el número de términos y la razón es la siguiente: 


AN = Al RN) 


De esta expresión se deducen las otras para realizar el cálculo de las 
otras opciones. 


listado del programa: 


102 

zo 

30 

40 

50 

100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
202 
204 


17 


REM IRRRORIOIOOOSOSROIROIOCOIOIOOIOOIOOA OOIIOIOOIOOIOIIORAR OIOIROIOONAIAA AX ARANA 


REM 
REM 
REM 


PROGRESTIONES GEDODNETRICAS 


REM RR ROI III OOOO OOOO III OIEA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"EL PRESENTE PROGRAMA LE FERMITE CALCULAR LG SIGUIENTE :" 


q. 
"2. - 
3. - 
"9,- 
.5.- 
a, -= 
.?,- 
"8.- 


CALCULO DEL TERMINO N-ESIMO" 

CALCULO DE LA RAZON" 

CALCULO DEL TERMINO PRIMERO” 

CALCULO DEL NUMERO DE TERMINOS” 

INTERPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS" 
CALCULO DE LA SUMA DE N TERMINOS CUNSECUTIVOS ABS(R)>=1" 
CALCULO DE LA SUMA DE LOS INFINITOS TERMINOS (-1<R:1)"” 
CALCULO DEL FRODUCTO DE N TERMINOS CONSECUTIVOS" 


28 , SUCESIONES DE NUMEROS REALES 


210 PRINT "SEGUM LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 
220 INPUT P 

230 PRINT 

7240 ON P GOTO 249,249,449,549,649,789,889,969 

249 REM - CALCULO DEL TERMINO N-ESIMO - 

250 PRINT "TERMINO PRIMERO Al ="; 

260 INPUT Al 

270 PRIMT "MUMERO DE TERMINOS N ="; 

230 INPUT ON 

290 PRINT "RAZON R ="; 

300 INPUT R 

710 AN=A1XR" (N-1) 

720 PRINT 

230 PRINT "EL TERMINO N-ESIMO DE LA PROGRESION E5: AN =";A5 
340 GOTO 1070 

7249 REM - CALCULO DE LA RAZON - 

250 PRINT "TERMINO PRIMERO Al ="; 

360 INPUT Al 

370 PRINT "TERMINO N-ESIMO AN ="; 

720 IMPUT AN 

290 PRINT "MUMERO DE TERMINOS N ="; 

900 INPUT ON 

910 R=(ANSA1)*(1/(N-1)) 

9720 PPINT 

470 PRINT "LA RAZON Q DIFERENCIA DE LA PROGRESION ES: R ="5kR 
440 GOTO 1070 
440 PEM - CALCULO DEL TERMINO PRIMERO - 

450 PRINT "TERMINO N-ESIMA AN = 

460 INPUT AN 

470 PRINT "RAZON R ="; 

420 INPUT R 

300 PRINT O"MUMERO DE TERMINOS N ="; 

E00 IMPUTON 

S10 AL=AN/(R”(N-1)) 

O PRINT "EL PRIMER TERMINO DE LA PROGRESION ES : Al =";A1 

O GOTO 1070 

549 REM - CALCULO DEL NUMERO DE TERMINOS - 

550 PRINT "TERMINO PRIMERO Al ="; 

560 INPUT Al 

570 PRINT "TERMINO M-ESIMO AN ="; 

580 INPUT AN 

590 PRINT "RAZON O DIFERENCIA R ="; 

600 INPUT R 

610 N=1+(LOG(AN)-LOG(A1))/LOG(R) 

620 PRINT 

670 PRINT "EL NUMERO DE TERMINOS DE LA FROGRESION ES : N ="3N 
640 GOTO 1070 

649 REM - INTERPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS - 
650 PRINT "CUANTOS MEDIOS DESEA INTERFOLAR "; 

660 INPUT H 

670 PRINT "INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERP 
OLAR"3H3 "MEDIOS GEOMETRICOS"; 

620 INPUT P,U 

690 R=(U/P)*(1/(H+1)) 

700 PRINT 

710 PRINT "LA RAZON DE LA PROGRESION ES : R ="3R 

720 PRINT 

730 PRINT "LOS MEDIOS GEOMETRICOS INTERPOLADOS SON :" 

740 FOR I=1 TO H 

750 T=P*R“I 

760 PRINT T, 


2720 
720 
729 
790 
200 
210 
20 
230 
2240 
250 
s60 
e>0 
830 
239 
890 
200 
210 
920 
930 
240 
950 
260 
267 
270 
2980 
290 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1970 
1080 
1090 
1100 
1110 


1120 
11.3 

1110 
1150 


11£0 


NEXT 1 

GOTO 1 
REM - C 
PRINT ” 
INPUT N 
PRINT " 
INPUT A 
PRINT " 
INPUT RE 
S=A1X(( 
PRINT 

PRINT ” 
GOTO 1 
REM - C 
PRIENT * 
INPUT A 
PRINT ” 
INPUT R 
S=A1/(1 
PRINT 

PRINT ” 
GOTO 1 
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070 
ALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS 
CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N 


TERMINO FRIMERO Al ="; 
1 
RAZON R ="; 


RON)-1)/(PR-1) 


(ABS(R) >=1) 


LA SUMA DE LOS” 5N;"TERMINOS CONSECUTIVOS DE LA PROGRESION ES: 


070 

ALCULO DE LA SUMA DE LOS INFINITOS TERMINOS 
TERMIMO PRIMERO Al ="; 

1 

RAZON —R¡Ri="; 

-R) 


(-1<R<1) 


LA SUMA DE LOZ INFINITOS TERMINOS DE LA PROGREION ES: 


070 


REM - CALCULO DEL PRODUCTO DE N TERMINOS CONSECUTIVOS- 


PRINT ” 
INPUT A 
PRINT ” 
INPUT 
PRINT 
INPUT 
v=(A1X 
PRINT 
PRINT 
GOTO 
REM - 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
INPUT 
IF C$= 
GOTO 1 
END 


TERMINO FRIMERO Al ="3 


1 

TERMINO N-ESIMO AN ="; 

AN 

"NUMERO DE TERMINOS N ="; 

N 

AN)“ (N/2) 

"EL PRODUCTO DE"3Nj3"TERMINOS CONSECUTIVOS ES 
1070 


PARA REALIZAR MAS CALCULOS - 


"DESEA CONTINUAR REALIZANDO OTRAS OPCIONES 
C+ 

"N" THEN GOTO 1160 

00 


ejercicios resueltos: 


1. Interpolar 5 medios geométricos entre 7 y 5103 
SOLUCION: 


EL P 


RESENTE 


CALCULO 
CALCULO 
CALCULO 


PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE : 


DEL TERMINO N-ESIMO 
DE LA RAZON 
DEL NUMERO DE TERMINOS 


S/N"5 


INTERPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS 
CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS ABS(R)>=1 
DE LA SUMA DE LOS INFINITOS TERMINOS (-1<R<1) 


CALCULO 
CALCULO 


DEL PRODUCTO DE N TERMINOS CONSECUTIVOS 
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SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 5 

CUANTOS MEDIOS DESEA INTERPOLAR ? 5. 

INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERPOLAR S MEDI 
OS GEOMETRICOS? 2? 5103 


LA RAZON DE LA PROGRESION ES : R = 3 


LOS MEDIOS GEOMETRICOS INTERPOLADOS SON : 
2l 63 189 567 1701 


2. En una progresión geométrica el primer término es 0,03125 y el 
término n-esimo es 512, sabiendo que la razón es 2, hallar el número de 
términos. 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 4 
TERMINO PRIMERO Ai =? .O03125 

TERMINO N-ESIMO AN =? 512 

RAZON O DIFERENCIA R =? 2 


EL NUMERO DE TERMINOS DE LA PROGRESION ES : N = 15 


3. Hallar el producto de los 10 primeros términos de una progresión 
geométrica sabiendo que el primero es 3 y el décimo es 1536. 
SOLUCION: 


SEGUN. LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 8 
TERMINO PRIMERO Al =?2 3 

TERMINO N-ESIMO AN =7? 1536 

NUMERO DE TERMINOS N =7? 10 


EL PRODUCTO DE 10 TERMINOS CONSECUTIVOS ES : P = 2.077602E+18 


4. Hallar la suma de los infinitos términos de una progresión geomé- 
trica, sabiendo que el primer término es 6 y la razón 1/3. 
SOLUCION :: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2? 
TERMINO PRIMERO Al =? 6 
RAZON R=? ¿33333333 


LA SUMA DE LOS INFINITOS TERMINOS DE LA PROGRESION ES: S = 9 


FORMACION DE LOS TERMINOS DE UNA SUCESION 


introducción: 


Este programa sirve para formar los términos de una sucesión de nú- 


meros reales. 


se 


En la linea 160 se indica los términos que se desean formar, también 


podría formarlos de 10 en 10 etc, sin más que añadir STEP 10. En la li- 


nea 170 se escribe la expresión del término general de la sucesión. 


listado del programa: 


10 
20 
30 
40 
50 
60 
0 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM RRE AA AAA 
REM 


REM SUCESIONES DE NUMEROS REALES 
REM 

REM FORMACION DE TERMINOS CONOCIDO EL TERMINO GENERAL 

REM 


REM ISR 009009000RIORIOOOIOIIOIOIIARANAA 
PRINT 


PRINT "CUANTOS TERMINOS DESEA FORMAR "; 
INPUT P 

PRINT 

PRINT "INDICE", " TERMINO" 
PRINT  "AXKXXX". "AAA AARRA 

FOR N=1 TO P 

AN=3%XN/ (NXN+1) 

PRINT " N="3N," "¿N3"="3AN 

NEXT N 

END 


ejercicios resueltos: 


E, Formar los 60 primeros términos de la sucesion de números reales que 
3 n 


tiene por término general: A SAN 


so 


n +1 


LUCION: 


CUANTOS TERMINOS DESEA FORMAR ”? 60 
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INDICE TERMINO 
II ES 

= 1 Ai1= 1.5 

= 2 A2= 1.2 

= 3 A3= .9 

= 4 A 4 = ¿70588235 

= 5 AS= .57692308 

= 6 Aó= ¿48648649 

= ? A ?7= ,42 

N= 8 A 8 = 3692307? 
N= 9 A9= 32926829 
N= 10 A 10 = .2970292 
N= 11 A 11 = .2704918 
N= 12 A 12 = 24827586” 
N= 13 A 13 = .22941176 
N= 14 A 14 = 21319797 

= 15 A 15 = ¿19911504 

= 1lé6 A 16 = ¿18677043 
N= 12 A 17 = ,17586207 
N= 18 A 18 = .16615385 
N= 19 A 19 = .15745856 
N= 20 A 20 = ¿14962594 
N= 21 A 21 = .14253399 
N= 22 A 22 = .13608297 
N= 23 A 23 = .13018868 
N= 24 A 24 = ¿12478336 
N= 25 A 25 = .11980831 
N= 26 A 26 = .11521418 
N= 2 A 27 = .1109589 
N= 28 A 28 = .10700637 
N= 29 A 29 = ¿10332592 
N= 30 A 30 = 09928289012 
N= 31 A 31 = .09%6673592 
N= 32 A 32 = .093658537 
N= 33 A 33 = .090825688 
N= 34 A 34 = 088159032 
N= 35 A 35 = .0856449372 
N= 36 A 36 = ¿083269082 
N= 37 A 37 = 081021898 
N= 38 A 38 = ¿078892734 
N= 39 A 39 = .0768572536 
N= 30 A 40 = ,.074933154 

= 41 A 41 = .073127229 

= 42 A 42 = ¿0713288102 

= 43 A 43 = ¿06972973 

= 44 A 44 = 068146618 

= 45 A 45 = 066633761 
N= 46 A 46 = 065186585 
N= 472? A 47 = ¿063200905 
N= 48 A 48 = ¿06247288285 
N= 49 A 49 = 061199001 
N= 50 A 50 = .05997601 
N= 51 A 51 = .058800922 
N= 52 A 52 = ¿05767098 
N= 53 A 53 = .05é658363 
N= 54 A 54 = .O5553é51 
N= 355 A 55 = .054527429 
N= 56 A 56 = .053554351 
N= 572 A 57 = .052615385 
N= 58 A 58 = .051708767? 
N= 59 A 59 = ¿050832855 
N= 60 A 60 = ,049986115 


SUCESION DEL NUMERO e 


introducción: 


Este breve programa es un caso particular del programa anterior, 
sirve para formar términos de la sucesión de números reales que tiene por 
límite el número e. 


La expresión del término general es: 


listado del programa: 


A ERES 
20 REM 


30 REM SUCESIONES DE NUMEROS REALES 
40 REM 

50 REM FORMACION DE TERMINOS DE LA SUCESION DEL NUMERO E 

60 REM 


70 REM IRRADIA 
100 PRINT 

110 PRINT "CUANTOS TERMINOS DESEA FORMAR "; 

120 INPUT P 


130 PRINT 
140 PRINT "INDICE", " TERMINO” 
A E EN 


160 FOR N=1 TO P 

170 AN=(1+1/N)"N 

180 PRINT " N="3N," "3N3"="3AN 
190 NEXT N 

200 END 


ejercicios resueltos: 


1. Formar los 40 primeros términos de la sucesión del número e. 
SOLUCION: 
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CUANTOS TERMINOS DESEA FORMAR ? 40 


INDICE TERMINO 
AAA AAA KARAKAKAKA AAA 
N= 1 A 1 = 2 
N= 2 A 2= 2.25 
N= 3 A 3 = 2.3703704 
N= 4 A 4 = 2,.4414062 
N= 5 A S5S= 2.48832 
N= 6 A ó = 2.5216264 
N= 7? A 7?= 2,5469997 
N= 8 A 8 = 2,.5657845 
N= 9 A 9= 2.5811748 
N= 10 A 10 = 2.5937425 
N= 11 A 11 = 2.604199 
N= 12 A 12 = 2.6130353 
N= 13 A 13 = 2.6206009 
N= 14 A 14 = 2.6271516 
N= 15 A 15 = 2.6328787 
N= 16 A 1ó = 2.6379285 
N= 17 A 17 = 2,.6424144 
N= 18 A 18 = 2.6464258 
N= 19 A 19 = 2.6500343 
N= 20 A 20 = 2.6532977 
N= 21 A 21 = 2.6562632 
= 22 A 22 = 2.6589699 
= 23 A 23 = 2.6614501 
= 24 A 24 = 2.6637313 
= 25 A 25 = 2,6658363 
= 26 A 26 = 2.667785 
N= 22 A 27 = 2.669594 
= 28 A 282 = 2.6712779 
= 29 A 29 = 2.6728492 
= 30 A 30 = 2.6743188 
= 31 A 31 = 2.6756963 
N= 32 A 32 = 2.6769901 
N= 33 A 33 = 2.6782077 
N= 34 A 34 = 2.6793554 
N= 35 A 3535 = 2.6804393 
= 36 A 36 = 2.6814644 
= 37 A 37 = 2.6824355 
= 38 A 38 = 2.6833566 
= 39 A 39 = 2.6842316 
N= 40 A 40 = 2.6850638 


OPERACIONES CON SUCESIONES 


introducción: 


Este programa permite realizar las operaciones de suma, diferencia 
producto y cociente de dos sucesiones de números reales. Para ello es pre- 
ciso introducir en las lineas 250 y 260 los términos generales de las dos 
sucesiones. 

En la linea 240 se indica el número de términos que se quiere for- 


mar. 
Cuando la sucesión B, tiende a cero o bien algunos de sus términos 


son ceros, la sucesión cociente a,/B, no está definida. 


listado del programa: 


10 REM IRRADIA III ORIO III SIRIA AAA 
20 REM 


3O REM OPERACIONES CON SUCESIONES 
490 REM 

50 REM DE NUMEROS REALES 

60 REM 


70 REM RIOR III III RMN IE III 
100 PRINT 

110 PRINT "EL PRESENTE PROGRAMA LE PERMITE CALCULAR" 

120 PRINT 

130 PRINT 

140 PRINT "1.- SUMA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 

150 PRINT "2.- DIFERENCIA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
160 PRINT "3.- PRODUCTO DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
170 PRINT "4.- COCIENTE DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
180 PRINT 

190 PRINT "CUANTOS TERMINOS QUIERE OBTENER"; 

200 INPUT P 

210 PRINT 

220 PRINT "INDICE", ” SUMA" +" DIFERENC" ,” PRODUCTO" ," COCIENTE" 

230 PRINT "AXE", MIRA OOOO Y AIAAAAAARAR RRA" 

240 FOR N=1 TO P 

250 AN=. 

260 BN= 
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270 SN=AN+EN 

280 DN=AN-EN 

290 PN=ANXEN 

300 CN=AN/BN 

310 PRINT N,SN,DN,PN,CN 
320 NEXT N 

330 END 


ejercicios resueltos: 


1. Dadas las sucesiones de términos generales: 


2 2 
a . —__ , b. = - a formar los cuarenta primeros términos 
n 3n->+2 n n? +1 
de las sucesiones siguientes: 
SOLUCION: 


EL PRESENTE PROGRAMA LE PERMITE CALCULAR 


1.- SUMA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 

2.- DIFERENCIA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 
3.- PRODUCTO DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 
4.- COCIENTE DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 


CUANTOS TERMINOS QUIERE OBTENER? 40 


INDICE 


SUMA 


DIFERENC 


FRODUCTO 


COCIENTE 


FOIOS 0000000000000 6% 


1 1.20000000 -= "80000000 . 20000000 . 20000000 
2 2,10000000 - 1,.10000000 . 50000000 «31250000 
3 2.é61818182 -=  "?e8isigsl8s 1.47272727 . 45454545 
4 3.02521008 -=  .739249380 2.15126050 . 60714286 
5 3.39366516 =  .452348869 2. 82805430 . 76470588 
6 3.74594595 -= ¿14594595 3.50270270 . 2?25300000 
ES 4.09043478 . 170434783 4.17565217 1.086495652 
8 4.43076923 . 49230769 4.24733728 1.25000000 
9 4.76871320 . 81749369 5.5128082942 1.41379310 
10 5.10519802 1.14480198 6.188118831 1.57812500 
11 5.44074941 1.47353630 6.285761124 1.742835714 
12 5. 77568058 1.80326679 7152667877 1.90729474 
13 6.11018651 2.13371593 8.19540889 2.07317073 
14 6.44439317 2.46469774 3.86386710 2.23863636 
15 6.77838448 2.77608360 9.53210318 2.404235532 
16 7.11221790 3.12778210 10.20015564 2.57000000 
17 7.44593364 3.945972674 10.86805465 2.73584906 
18 7.779756044 3.791386813 11.53582418 2.?920178571 
19 8.11311921 4.1241682893 12. 20348347 3.06779661 
20 8.446625337 4. 45660043 12.387104818 3.23387097 
zl 8.78009050 4.78914027 13.53853115 3. 40000000 
22 9.11352335 5.12177077 14.20594300 3.56617647 
23 9.44693064 5.45447781 14.87329259 3.73239437 
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24 9.78031758 5.73724999 15.54058738 3.879864865 
23 10.1136828823 6.12007800 16.20783370 4.06493506 
26 10.44704579 6. 45295421 16.87503693 4.23125000 
27 10. 78039280 6.78587226 17.54220168 4.39759036 
28 11.11373130 7.11382684 18.20933195 4.56395349. 
29 11.44706290 7.45181350 18.87643118 4.73033708 
30 11.78038894 7.78482845 19.54350239 4.89673913 
31 12.11371047 8.11786848 20.21054820 5.06315789 
32 12.44702837 2.45093081 20.3877537093 5.22959184 
33 12.78034335 28.78401308 21.54457262 5.39603960 
34 13.11365601 9.11711322 22.21155508 5. 56250000 
35 13.44696681 9.45022945 22.87851992 5.72897196 
36 13.78027616 9.78336020 23.54546856 5.89545455 
37 14.1135828439 10.11650410 24.21240230 6.06194690 
38 14.44689178 10.44965993 24.287932228 6. 22844828 
39 14.780198535 10.782282667 25.54622953 6.39495798 
40 15.11350488 11.11600332 26.21312499 6.56147541 


SUMA DE TERMINOS DE UNA SUCESION 


introducción: 


Este programa sirve para calcular la suma de p términos consecutivos 
de una sucesión de números reales. En la linea 210 se introduce la expre- 
sión del término general de la sucesión a sumar. En caso de que queramos 
sumar a partir del termino 200, en lugar del término primero, modificare- 
mos la linea 200 escribiendo N = 200. 

El programa imprime el índice de cada término, el término y la suma 


de los términos acumulados hasta el correspondiente al índice. 


listado del programa: 


10 REM RRA III EA 


20 REM ó . 

30 REM Suma DE P TERMINOS CONSECUTIVOS 
40" REM 

50 REM DE UNA SUCESION DE NUMEROS REALES 

60 REM 


70 REM FARRO III III OIR IRA 
100 PRINT 

110 PRINT "INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210" 
120 PRINT 

130 PRINT "CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR"; 

140 INPUT P 

150 PRINT 

160 PRINT 

170 PRINT "INDICE", "TERMINO AN", "SUMA SN" 

180 PRINT "AXIXXX", "AXIS, "AAA" 

190 SN=0 

200 N=1 

Zz10 AN= 

220 SN=SN+AN 

230 PRINT N,AN,SN 

240 N=N+1 

250 IF N<=P THEN GOTO 210 

260 END 
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ejercicios resueltos: 


1. Calcular la suma de los 30 primeros términos de la sucesión que tie 


ne por término general: 


SOLUCION: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


1) 
l 


(1 + 


n 
2 3 


n 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 30 


INDICE 


OCIO RIO III MIRRA 


J30NOo0005 Nr 


A Calcular la suma de los cuadrados de los 30 primeros números natura 


TERMINO AN 


2.000000000 
2.250000000 
2.370370370 
2.441406250 
2. 482320000 
2.521626372 
2.546499698 
2.565784514 
2.581174790 
2.593742463 
2.604199010 
2.613035288 
2.620600891 
2.627151554 
2.6328787?217 
2.637928498 
2.642414375 
2.646425819 
2,650034323 
2.653297707 
2.6562é63212 
2.658969856 
2.661450125 
2.663731263 
2.665836334 
2.667724969 
2.669393980 
2.671277852 
2.672849153 
2.6743187825 


les, es decir: 
SOLUCION: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


S 


SUMA SN 


2. 00000000 
4. 25000000 
6. 62037037 
9.06177662 
11.55009662 
14.07172299 
16.61822269 
19. 18400720 
21.76518199 
24.35892446 
26.96312347 
29.57615875 
32.19675964 
34.82391120 
37.45678992 
40.09471841 
42.73213279 
435.38355861 
48.03359293 
50. ó8689064 
53.34315385 
56.00212370 
58.66357383 
61.32730509 
63.99314143 
66. 66092640 
69. 33052038 
2?2,.00179823 
24.67464738 
27.34896617 


2 2 


L +2 +3 


2 


hos. +30* 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 30 


39 
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INDICE TERMINO AN suma SN 
ES 
1 1.0 1.0 
2 4.0 5.0 
3 9.0 14.0 
4 16.0 30.0 
5 25.0 55.0 
6 36.0 91.0 
? 49.0 140.0 
8 64.0 204.0 
9 s1.0 285.0 
10 100.0 385.0 
11 121.0 506.0 
12 194.0 650.0 
13 169.0 319.0 
14 196.0 1015.0 
15 225.0 1240.0 
16 256.0 1496.0 
17? 289.0 1785.0 
18 324.0 2109.0 
19 361.0 2470.0 
20 400.0 2870.0 
21 441.0 3311.0 
zz 484.0 3795.0 
23 529.0 4324.0 
24 576.0 4900.0 
25 é25.0 5525.C 
26 676.0 é201.0 
2? 729.0 é6930.0 
22 784.0 ?2214.0 
29 841.0 8555.0 
30 200.0 9455.0 


3. Calcular la suma de los cubos de los 50 primeros números naturales 


es decir: Ss = 1? + 23 + 33 Feos. + 50? 


SOLUCION :: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 50 


INDICE TERMINO AN suma SN 
E 
1 1.0 1.0 
de 2.0 9.0 
3 27.0 36.0 
4 64.0 100.0 
5 125.0 225.0 
é 216.0 441.0 
Ze 393.0 784.0 
8 512.0 1296.0 
9 729.0 2025.0 
10 1000.0 3025.0 
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11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
91 
42 
43 
44 
45 
46 
47 
48 
49 
50 


1331.0 
1728.0 
2197.0 
2744.0 
3375.0 
4096.0 
4913.0 
5832.0 
6859.0 
g£8000.0 
9261.0 
10648.0 
12167.0 
13824.0 
15625.0 
17576.0 
19683.0 
21952.0 
24389.0 
27000.0 
29791.0 
32768.0 
35937.0 
39304.0 
423875.0 
46656.0 
50653.0 
54872.0 
59319.0 
64000.0 
68921.0 
74088.0 
79507.0 
85184.0 
91125.0 
97336.0 
103823.0 
110592.0 
117649.0 
125000.0 


4356.0 
6084.0 
e8281.0 
11025.0 
14400.0 
18496.0 
23409.0 
279241.0 
36100.0 
44100.0 
53361.0 
64009.0 
76176.0 
90000.0 
105625.0 
123201.0 
142884.0 
164836.0 
189225.0 
216225.0 
246016.0 
278784.0 
314721.0 
354025.0 
396900.0 
443556.0 
494209.0 
549081.0 
£08400.0 
672400.0 
741321.0 
815409.0 
394916.0 
980100.0 
1071225.0 
1168561.0 
1272384.0 
1382976.0 
1500625.0 
1625625.0 
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SUCESION DE FIBONACCI 


introducción: 


Este breve programa sirve para formar los términos de la sucesión 
de Fibonacci. Esta sucesión de números reales se define de la siguiente for 
ma: a 


Ls a, = 1, a, = +a 


1 2 n 8-1 n-2 
Vemos que los dos primeros términos han de estar separados y el resto si- 
guen la ley de recurrencia descrita en la relación: Pd E + Mus 

Este programa es igualmente válido, salvo en los dos primeros térmi 


nos, para cualquier otra sucesión cuya ley de recurrencia sea la misma. 


listado del programa: 


10 REM IRRIRRRRRSRORIRIRIRSRRRIRIRIRIRRIRIRIRORRR 0999099090009 
20 REM 


30 REM SUCESION DE FIBONACCI 

40 REM 

50 REM 2444200982922 2009N00NN000ROORRORORR 
100 PRINT 


110 PRINT "CUANTOS TERMINOS DE LA SUCESION DESEA FORMAR"; 
120 INPUT P 

130 PRINT 

140 N=1 

150 A=1 

160 PRINT "INDICE", "TERMINO" 
170 PRINT "AXHXXX". "AXXXXXX" 
180 PRINT N,A 

190 N=2 

200 B=1 

210 PRINT M,B 

220 N=N+1 

230 C=B+A 

240 PRINT N,C 

250 A=B 

260 B=C 

270 IF N<P THEN GOTO 220 

280 END 
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1. Formar los 35 primeros términos de la sucesión de FIBONACCI. 
SOLUCION: 


CUANTOS TERMINOS DE LA SUCESION DESEA FORMAR? 35 


INDICE TERMINO 
FOO IIA 

1 1 
2 1 
3 z 
4 3 
5 5 
6 8 
? 13 
3 21 
a 34 
10 55 
11 89 
12 144 
13 233 
14 3772 
15 610 
16 987 
1? 1597 
183 25384 
19 4181 
20 6765 
21 10946 
22 17711 
23 28652 
24 46368 
25 75025 
26 121393 
27 196418 
28 317811 
29 514229 
30 232040 
31 1346269 
32 2178309 
33 3524578 
34 5702887 


35 9227465 


OPERACIONES CON NUMEROS COMPLEJOS EN 
FORMA BINOMICA 


introducción: 


Este programa sirve para sumar, restar, multiplicar y dividir núme- 


ros complejos escritos en forma binómica. En las lineas 140 y 160 se introdu 


cen cada uno de los dos números complejos, escribiendo primero la parte 


real separada por una coma de la parte imaginaria. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
129 
130 
140 
150 
160 
170 
180 
190 
199 
200 
210 
220 
230 
240 
250 
259 
260 
270 
280 
290 
300 


REM ISRRSORRRSRIRIOSRIRSIOIRIOIORIOIIOIOIRIRIRIRIRIOIIIOIAIIRIRIIRIRIRIIIRRRRRRRRRRRIRIRIRIIOOOIOIOEA 
REM 


REM OPERACIONES CON NUMEROS COMPLEJOS 
REM 

REM EN FORNmMA BINOMICA 

REM 


REM IRRRSIOIIOIOSIOSOIOAIOIOIAOIOIOIOIIOIIOII 9090209920920 209020200902090900009090002009N000000% 
PRINT 

PRINT "INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA" 
PRINT 

REM -ENTRADA DE DATOS - 

PRINT "COMPLEJO Zi =";5 

INPUT X1,Y1 

PRINT "COMPLEJO 22 ="; 

INPUT X2,Y2 

PRINT 

PRINT 

PRINT 

REM - SUMA DE COMPLEJOS - 

XS=X14+X2 

YS=Y1+Y2 

PRINT "COMPLEJO SUMA o Z14+Z2 ="3XS;5 


IF YS>=0 THEN PRINT "+"; 

PRINT YS;3"i" 

PRINT 

REM - DIFERENCIA DE COMPLEJOS - 

XR=X1-X2 

YR=Y1-Y2 

PRINT "COMPLEJO DIFERENCIA : Z1-Z22 ="3XR;5 


IF YR>=0 THEN PRINT "+"; 
PRINT YR3"i" 
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310 PRINT 

319 REM - PRODUCTO DE COMPLEJOS - 

320 XP=X1XX2-Y1XY2 

330 YP=X1XY2+Y1XX2 

340 PRINT "COMPLEJO PRODUCTO E Z1XxZ2 ="3XP; 
350 IF YP>=0 THEN PRINT "+"; 

360 PRINT YP;"i" 

370 PRINT 

379 REM - COCIENTE DE COMPLEJOS - 

380 IF X2=0 AND Y2=0 THEN GOTO 460 

390 M=X2XX2+Y2XY2 

400 XC=(X1XX24+V1XYZ2)/M 

410 YC=(-X1XY2+Y1XX2)/M 

420 PRINT "COMPLEJO COCIENTE : Z1/Z22 ="3XC;5 
430 IF YC>=0 THEN PRINT "+"; 

440 PRINT YC;3"i" 

450 STOP 

460 PRINT "NO ES POSIBLE LA DIVISION POR EL COMPLEJO NULO" 
470 END 


ejercicios resueltos: 


1. nados los complejos: z, = 12 - 8 i y 2¿=3I=7Y7i , calcular: 
e 47 á 
SOLUCION: 


2' 2,/2) 


INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA 


COMPLEJO  Z1 =7? 12 -8 
COMPLEJO 22 =? 3 ==? 
COMPLEJO SUMA ¿ Z1+Z2 = 15 -15 i 


COMPLEJO DIFERENCIA : Z1-Z22 = 9 -1 i 


COMPLEJO PRODUCTO : Z1XxZ2 =-20 -108 i 
COMPLEJO COCIENTE : Z1/22 = 1.5252069 + 1.0344828 i 
de Dados los complejos: zy = 7T+1IZA y z, = O +0 4d, calcular: 
- E 
Ey * as e Ey Mg 1/22 


SOLUCION : 


INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA 


E 


COMPLEJO Zi 2 ? 
co) 0 


COMPLEJO 22 
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COMPLEJO SUMA 3 Z1+Z2 = 7 + 13 4 
COMPLEJO DIFERENCIA : Z1-22 = 72 + 13 i 


COMPLEJO PRODUCTO : Z1XxX22 = 0+ O i 


NO ES POSIBLE LA DIVISION POR EL COMPLEJO NULO 


3. Dados los complejos: z, = 6 + 7 i y z, = -5 + 17 1, caleu- 
lar: 27 + Z2r 2, = Zar Z¿-Za1 .2,/2,- 
SOLUCION: 


INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA 


COMPLEJO 21 =? 6 2 
COMPLEJO 22 =”?-S 17? 


COMPLEJO SUMA : Z21+22 = 1 + 24 i 
COMPLEJO DIFERENCIA : Z1-Z2 = 11 -10 i 
COMPLEJO PRODUCTO : Z1XZ22 =-149 + 67 i 


COMPLEJO COCIENTE : Z1/1Z22 


. 28343949 -.43630573 i 


POLARES Y VICEVERSA 


introducción: 


coordenadas cartesianas (x,y) a coordenadas polares 


CONVERSION DE COORDENADAS CARTESIANAS A 


Este programa sirve para pasar un número complejo expresado en 


(r,w) y reciprocamente. 


Donde r es el módulo del número complejo y w es su argumento. 


listado del programa: 


10 

20 

30 

40 

50 

60 

20 

[=J0) 

90 

100 
110 
120 
130 
140 
150 
150 
169 
170 
120 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM ARRANCAR OI 
REM 


REM CONVERSION DE COORDENADAS CARTESIANAS A POLARES 


REM 
REM 
REM 


Y RECIPROCAMENTE 


EEE RS 


PRINT 
PRINT 


PRINT 

PRINT "DE POLARES A CARTESIANAS PULSE 1" 
PRINT "DE CARTESIANAS A POLARES PULSE 2" 
INPUT N 

IF N=1 THEN GOTO 330 

PRINT 

PRINT 

REM - DE CARTESIANAS A POLARES - 

PRINT "INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR 
INPUT X,Y 

R=SOR (XXX+YXY) 

IF X=0 AND Y=0 GOTO 240 

IF X=0 THEN X=(.1)30 

IF Xx>0 AND Y=0 GOTO 240 

W=Y/X 

UV=0 

U=ATN (W) 

IF X<0 THEN V=V+PI 

IF V<0 THEN V=U+2xXP 1 


PRINT 

PRINT "LAS COORDENADAS POLARES SON: " 
PRINT "MODULO ="3R 

PRINT "ARGUMENTO ="3V;5"radianes" 
GOTO 80 


UNA COMA" 5 
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32? REM - DE POLARES A CARTESIANAS - 

330 PRINT "INTRODUZCA LAS COORDENADAS POLARES" 
390 PRINT "MODULO R ="; 

350 INPUT R 

360 PRINT "ARGUMENTO W ="; 

370 INPUT W 

380 X=RXCOS (W) 

3920 Y=RXSIN(W) 

400 PRINT 

910 PRINT "LAS COORDENADAS CARTESIANAS SON 3 ("5x5 "."5v5") 
420 GOTO £€0 

430 END 


ejercicios resueltos: 


¡A a coordenadas cartesianas los siguientes números complejos 


expresados en forma polar: z = de ; z = A 2 


SOLUCION : 


DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 

P 1 

INTRODUZCA LAS COORDENADAS POLARES 
MODULO R=? 3 

ARGUMENTO W =? 3,.191532927 


LAS COORDENADAS CARTESIANAS SON 2 (-3 ,-1.32824576E-07? =(-3, O) 


Obsérvese que -1.3824566E-07 es una aproximación de cero. 


DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 


pea 
INTRODUZCA LAS COORDENADAS POLARES 
MODULO R=?2 43 


ARGUMENTO W =7? 1.5707963 


LAS COORDENADAS CARTESIANAS SON : ( 1,07734733E-07? , 9 ) (O, 4) 


2. Pasar a coordenadas polares los siguientes números complejos expre- 
sados en forma cartesiana: Zz = (5, 5); z = (-7, 5) 
SOLUCION: 


Ln 


INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR UNA COMA? 5 


LAS COORDENADAS POLARES SON: 
MODULO = 2.0710628 
ARGUMENTO = .7?e5398ló radianes 


J.R.VIZMANOS 


DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 
22 


INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR UNA 
LAS COORDENADAS POLARES SON: 


MODULO = 8.60232593 
ARGUMENTO = 2.5213432 radianes 


CcomA?-2 
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POTENCIACION Y RADICACION DE NUMEROS 
COMPLEJOS EN FORMA BINOMICA 


troducción: 


Este programa permite calcular la potencia de un número complejo en 


forma binómica y la radicación de un número complejo en forma binómica. El 


cálculo se realiza en polares para lo cual en la linea 590 se inicia una 


subrutina para la conversión de cartesianas a polares 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

80 

0 

100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
209 
z10 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM ROSARIO OOOO O OI ROO ORO ORIO E O OR RX ERRE RA AM RR KA ER 
REM 


REM POTENCIACION Y RADICACION 
REM 

REM DE NUMEROS COMPLEJOS 

REM 

REM EN FORMA BINOMICA 

REM 


REM RRA IO IO OI III OIM II RR OR RAR 
PRINT 

PRINT "EL PRESENTE FROGRAMA LE FERMITE CALCULAR :" 

PRINT 

PRINT 

PRINT "1.-POTENCIA DE UN NUMERO COMPLEJO ESCRITO EN FORMA BINUMICA” 
PRINT "2.-RADICACION DE UN NUMERO COMPLEJO ESCRITO EN FORMA EINOMICA" 
PRINT 

PRINT "SEGUN LA OPCION DESEADA FULSE El NUMERO QUE LE PRECEDE" 

INPUT P 

PRINT 

IF P=2 THEN GOTO 359 

REM - POTENCIA DE UN NUMERO COMPLEJO EN FORMA EINOMICA - 

PRINT "PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEFARADAS POR UNA CUMA"; 
INPUT X,Y 

PRINT "EXPONENTE DE LA POTENCIA DESEADA N ="; 

INPUT N 

GOSUB 590 

R1=R*N 

V1=UXN 

X1=R1XCOS(V1) 

Y1=RIXSIN(V1) 

PRINT 

PRINT 
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320 PRINT "LA POTENCIA PEDIDA ES ="3X1; 

330 IF Y1i>=0 THEN PRINT "+"; 

340 -PRINT Y13"i" 

350 GOTO 700 

359 REM - RADICACION DE UN NUMERO COMPLEJO EN FORMA BINOMICA — 
360 PRINT "PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA"; 
3720 INPUT X,Y 

380 PRINT "INDICE DE LA RAIZ DESEADA N ="; 

390 INPUT N 

400 GOSUB 390 

410 R2=R" (1/N) 

420 VU2=V/N 

430 PRINT 

490 PRINT 

450 PRINT "ORDEN DE LA RAIZ", "VALOR DE LA RAIZ” 
469 PRINT 

970 PRINT "RIIIE AAA AA AAA 
430 PRINT 

490 FOR J=1 TON 

500 V3=V42+2XPIX(J-1)/N 

510 X=R2XC0S(V3) 

520 Y=R2XSIN(V3) 

530 PRINT " “3J; 

540 PRINT " "3INT(1000%XxX+.3)/1000;5 
550 IFY>=0 THEN PRINT "+"; 

560 PRINT INT(1000X*Y+.5)/1000;"i" 

570 NEXT J 

580 GOTO 700 

590 REM - SUBRUTINA DE CONVERSION DE CARTESIANAS A POLARES - 
600 R=SQR (XXX+YXY) 

610 IF X=0 AND Y=0 GOTO 650 

620 IF X=0 THEN X=(.1)730 

625 IF Y=0 THEN Y=(.1)*30 

630 IF X>0 AND Y=0 GOTO 6350 

640 W=Y/X 

650 U=0 i 

660 U=ATN (W) 

670 IF X<0 THEN V=U+PI 

680 IF V<0 THEN V=V+2%XPI 

670 RETURN 

700 REM - PARA REALIZAR MAS CALCULOS - 

710 PRINT 

7220 PRINT 

730 PRINT 

740 PRINT "DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N"; 
750 INPUT C$ 

760 1F C%="N" THEN 2350 

770 GOTO 170 

720 END 


ejercicios resueltos: 


1. Calcule las siguientes potencias: 
4 18 

(1-i) . 

SOLUCION: 


isos (es 30% (27109P, 
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EL PRESENTE PROGRAMA LE FERMITE CALCULAR : 


1.-POTENCIA DE UN NUMERO COMPLEJO ESCRITO EN FORMA BINOMICA 
2.-RADICACION DE UN NUMERO COMPLEJO ESCRITO EN FORMA EINOMICA 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 

? 1 

PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 1 
EXPOMENTE DE LA FOTENCIA DESEADA N =? 5 


LA POTENCIA PEDIDA ES =-4 -4 ii 


DESEA CONTINUAR REALIZANDO OTRA OFCION ? S/N?S 

SEGUN LA OFCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 

| 

PARTE REAL E IMAGINARIA DEL NUMERO COMFLEJO SEPARADAS POR UNA COMA?-S5 
EXPONENTE DE LA FOTENCIA DESEADA N =? ? 


LA POTENCIA PEDIDA ES = 12690 + 13112 i 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N7?S 

SEGUN LA CPCION DESEADA FULSE EL NUMERO QUE LE FRECEDE 

ed 

PARTE REAL E IMAGINARIA DEL NUMERO COMFLEJO SEFARADAS POR UNA COMA?-2 
EXPONENTE DE LA POTENCIA DESEADA N =7? 6% 


LA POTENCIA PEDIDA ES = 14715 -1491498 i 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S5/N7?S 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 
pS 


PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 1 
EXPONENTE DE LA POTENCIA DESEADA N =7? 18 


LA POTENCIA PEDIDA ES = 2.2470422E-06 -512 i =-512 i 


2. Calcular la raiz cuadrada del complejo: z =5+5 ii 


SOLUCION: 


PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 5 
INDICE DE LA RAIZ DESEADA N =? 2 


ORDEN DE LA RAIZ VALOR DE LA RAIZ 
FOO ORO 
1 2.457 + 1.018 i 


=2.957 -1.018 i 


Cd 


cn 
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3. Resolver las siguientes ecuaciones: qe 64 = O; z> = 1-= 


SOLUCION :: 


Y 2 
PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 64 
INDICE DE LA RAIZ DESEADA N =? 8 


ORDEN DE LA RAIZ YALOR DE LA RAI. 
EEES FONO NOOO EII 
1 1,682 + 0 1 


.189 + 1.189 i 
+ 1.682 1 

¿189 + 1,189 1 

«682 + 0 4 

.189 -1.1692 1 
-1.682 i 

ll 1.189 -1.189 i 


1 
O - rr Or” > 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N?S 
SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 
> 2 


PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 1 
INDICE DE LA RAIZ DESEADA N =”?* 3 


ORDEN DE LA RAIZ VALOR DE LA RAIZ 
KK ARK AARAANK UAM A OH HARHEA 
1 1 + 0 1 
2 -.5 + .866 i 


OPERACIONES CON NUMEROS COMPLEJOS EN 


FORMA POLAR 


introducción: 


Este programa permite calcular: 


1.- El producto de dos números complejos en forma polar. 


2.- El cociente de dos números complejos en forma polar. 


3.- La potencia n-esima de cada uno de los dos complejos en forma polar 


4.- Las raices n-esimas de cada uno de los dos complejos en forma polar. 


Es preciso introducir los dos complejos en coordenadas polares. 


En caso de que los argumentos estén en radianes, basta con modificar la 


linea 790 del siguiente modo: 


790 W7=W6+2*PI* (J-1)/N 


y sustituir todas las palabras GRADOS que figuran en el programa por la 
palabra RADIANES. 


listado del programa: 


10 
20 
30 
40 
50 
60 
PO 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
209 
210 


REM XX 
REM 
REM 
REM 
REM 
REM 
REM X% 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM - 
PRINT 


ORIO III IRONIA IRON RIE ER A 
OPERACIONES CON NUMEROS COMPLEJOS 
E N FORMA POLAR 


ROO OOOO III IRON III III IRON RICA 


"EL PRESENTE PROGRAMA LE PERMITE CALCULAR :" 


"1.,—-PRODUCTO DE DOS NUMEROS COMPLEJOS EN FORMA FOLAR" 
"2.-COCIENTE DE DOS NUMEROS COMPLEJOS EN FORMA POLAR" 
"3.-POTENCIA N-ESIMA DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA POLAR" 
"94.-RAICES N-ESIMAS DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA FOLAR" 


ENTRADA DE DATOS - 
"MODULO DEL COMPLEJO Zi, Ri ="; 
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INPUT R1 

PRINT "ARGUMENTO DEL COMPLEJO Z1, Wi ="; 

INPUT Wi 

PRINT 

PRINT "MODULO DEL COMPLEJO 22, R2 ="; 

INPUT R2 

PRINT "ARGUMENTO DEL COMPLEJO 22,  W2 ="; 

INPUT W2 

PRINT 

PRINT "EXPONENTE - INDICE PARA LA FOTENCIACION Y LA RADICACION —N ="5 
INPUT ON 

PRINT 

REM - PRODUCTO DE NUMEROS COMPLEJOS - 

RM=RIXARZ 

WM=W1+W2 

PRINT "EL COMPLEJO PRODUCTO ES  Z1X*Z2 = MODULO";RM;5", ARGUMENTO" 5 WM; "GRADOS" 
PRINT 

REM - COCIENTE DE NUMEROS COMPLEJOS - 

RC=R1/R2 

WC=W1-W2 

PRINT "EL COMPLEJO COCIENTE ES  Z1/Z2 = MODULO";RC;",ARGUMENTO"5WC; "GRADOS" 
PRINT 

REM - POTENCIA N-ESIMA DE Zi - 

RI=R1"N 

WI=W1%KN 

PRINT "POTENCIA N-ESIMA DE Z1 = (Z1)"N = MODULO";R3;", ARGUMENTO" 5W35 "GRADOS" 
PRINT 

REM - POTENCIA N-ESIMA DE Z2 - 

R4=RZ"N 

W4=WZKN 

PRINT "POTENCIA N-ESIMA DE Z2 = (Z2)"N = MODULO";R4;",ARGUMENTO"5W45 "GRADOS" 
PRINT 

REM - RAICES N-ESIMAS DE Z1 - 

R=R1 

W=4w1 

GOSUB 700 

PRINT 

R=R2 

W=W2 

GOSUB 700 

END 

Ró=R” (1/N) 

Wó=WwW/N 

PRINT 

PRINT 

PRINT "ORDEN DE LA RAIZ", " VALOR DE LA RAIZ , 
PRINT 

A 
PRINT 

FOR J=1 TON 

W7=W6+360X (J-1)/N 


PRINT " "5J, 
PRINT "MODULO"5R6;", ARGUMENTO" 5W7; "GRADOS" 
NEXT J 
RETURN 
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ejercicios resueltos: 


1. Dados los complejos: zy = 64,299 Y 2,= 1,800 , se pide, calcular: 


a) El complejo producto z,.z 


L 2 
b) El complejo cociente 2/2, 


c) Las potencias de índice 6 de Z, Y de z, 
d) Las raices sextas de Zz Y de 2, 
SOLUCION : 

MODULO DEL COMPLEJO Zi, Ri =7? 69 
ARGUMENTO DEL COMPLEJO Zi, Wi =7? 120 
MODULO DEL COMPLEJO Z2, R2 =? 1 
ARGUMENTO DEL COMPLEJO Z2, W2 =7? 180 


EXPONENTE - INDICE PARA LA POTENCIACIÓN Y LA RADICACION N =2 é 


EL COMPLEJO PRODUCTO ES Z1XZ2 


MCDULO 644 ARGUMENTO 300 GRADOS 


EL COMPLEJO COCIENTE ES 21/22 = MODULO 644 ,ARGUMENTO-40 GRADOS 
POTENCIA N-ESIMA DE Z1 = (Z1)"N = MODULO 6.8719477E+10 ARGUMENTO 720 GRADOS 
POTENCIA M-ESIMA DE 22 = (22)"”N = MODULO 1 ARGUMENTO 1080 GRADOS 
el argumento principal será: 0% 

ORDEN DE LA RAIZ VALOR DE LA RAIZ 
ORINA NANA PORRO INNNON NRO OIR A 

1 MODULO 2 ¿ARGUMENTO ZO GRADOS 

2 MODULO 2 ARGUMENTO 80 GRADOS 

3 MODULO 2 ,ARGUMENTO 140 GRADOS 

4 MODULO 2 ARGUMENTO 200 GRADOS 

5 MODULO 2 ,ARGUMENTO 260 GRADOS 

é MODULO 2 ARGUMENTO 320 GRADOS 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
ACCIONA: OOOO OCIO: 

1 MODULO 1 ,ARGUMENTO 30 GRADOS 

2 MODULO 1 ARGUMENTO 20 GRADOS 

3 MODULO 1 ,ARGUMENTO 150 GRADOS 

4 MODULO 1 ARGUMENTO 210 GRADOS 

ha] MODULO 1 ARGUMENTO 270 GRADOS 

6 MODULO 1 ARGUMENTO 330 GRADOS 

2 ] jOS: = 3 Z, = 4 Calcular: 
e Dados ios complejos 27 302 Y > 450 ! 


a) El complejo producto 24 +2, 


b) El complejo cociente 2/2, 
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Cc) Las potencias de índice 5 de 24 Y de Z, 
d) Las raices quintas de 2, Y de 2, 
SOLUCION : 

MODULO DEL COMPLEJO Zi, R1 =? 3 
ARGUMENTO DEL COMPLEJO Zi, Wi =7? 30 

MODULO DEL COMPLEJO Z2, R2 =? 4 
ARGUMENTO DEL COMPLEJO Z2, W2 =? 45 


EXPONENTE - INDICE PARA LA POTENCIACION Y LA RADICACION N =?2 3 


EL COMPLEJO PRODUCTO ES Z1X22 


MODULO 12 ARGUMENTO 25 GRADOS 


EL COMPLEJO COCIENTE ES 21/22 


MODULO .75 ¿ARGUMENTO-15 GRADOS 


POTENCIA N-ESIMA DE Z1 = (Z1)”N = MODULO 243 ,ARGUMENTO 150 GRADOS 
POTENCIA N-ESIMA DE 22 = (22)%N = MODULO 1024 ARGUMENTO 225 GRADOS 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
FOO: IRIS 

1 MODULO 1.2457309 ,ARGUMENTO ó GRADOS 

2 MODULO 1.2457309 ¿ARGUMENTO 78 GRADOS 

3 MODULO 1.24373092 ¿ARGUMENTO 150 GRADOS 

q MODULO 1.2457309 ¿ARGUMENTO 222 GRADOS 

Ss MODULO 1.2457309 ,ARGUMENTO 294 GRADOS 


ORDEN DE LA RAIZ VALOR DE LA RAIZ 
JHON FOIOS 
1 MODULO 1.3195079% ¿ARGUMENTO % GRADOS 
2 MODULO 1.3195079 ,ARGUMENTO 81 GRADOS 
3 MODULO 1.3195079 ARGUMENTO 153 GRADOS 
4 MODULO 1.3195079 ,ARGUMENTO 225 GRADOS 
S MODULO 1.3125079 ¿ARGUMENTO 297 GRADOS 


3. Dados los complejos: z, = 8 y z, = 27 calcular: 


Z. o? 9as > 


13 


b) El complejo cociente 2/2, 


a) El complejo producto z 


Cc) Las potencias de índice 3 de z, y de z 


d 
d) Las raices cúbicas de z, y de Z, 


1 
SOLUCION : 


2 


MODULO DEL COMPLEJO Zi, Ri =? 8 
ARGUMENTO DEL COMPLEJO Zi, wi =?2 O 
MODULO DEL COMPLEJO 22, rR2 =? 27 


ARGUMENTO DEL COMPLEJO 22, w2 =7? 90 
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EXPONENTE - INDICE PARA LA PFOTENCIACION Y LA RADICACION N =2 3 


EL COMPLEJO PRODUCTO ES 


EL COMPLEJO COCIENTE ES 


POTENCIA N-ESIMA DE 


POTENCIA N-ESIMA DE 


ORDEN DE LA RAIZ 


PON O AAA 


Ud Hr 


ORDEN DE LA RAIZ 


FORO 


pa 


- 


N 


Z1XZ2 


= (Z1)"N 


= (22)%N 


MODULO 216 ,ARGUMENTO %0 GRADOS 


MODULO .2962963 ,ARGUMENTO-90 GRADOS 


MODULO S1i2 ,ARGUMENTO O GRADOS 


MODULO 19683 ¿ARGUMENTO 270 GRADOS 


VALOR DE LA RAIZ 


ROA OI 


MODULO 
MODULO 
MODULO 


” 
— 
2 
2 


, ARGUMENTO O GRADOS 
, ARGUMENTO 120 GRADOS 
¿ARGUMENTO 240 GRADOS 


VALOR DE LA RAIZ 


EEES 


MODULO 
MODULO 
MODULO 


3 


3 
3 


Ñ ARGUMENTO 30 GRADOS 
«| ARGUMENTO 150 GRADOS 
«ARGUMENTO 270 GRADOS 


ECUACION ALGEBRAICA DE SEGUNDO GRADO 


introducción: 


Este programa sirve para calcular las raices reales y complejas de 
ecuaciones algebráicas de 2” grado. Para su ejecución, basta con introducir 


los coeficientes de x?, de x, y el término independiente. 


listado del programa: 


LO REA RARO RN MIRROR RIMINI RRA NN RIMINI IIA 


20 REM 

ZO REM RESOLUcioóoN DE ECUACIONES 

40 REM 

50 REM ALGEBRAICAS D E SEGUNDO GRADO 
60 REM 


PO REM RMN NRO III INR III IIIIRRARARA 
100 PRINT 
10% REM - ENTRADA DE DATOS - 


110 PRINT "COEFICIENTE DE X"2 .... A = "; 
120 INPUT A 
130 PRINT "COEFICIENTE DE X  .... B= "; 


140 INPUT B 

150 PRINT "TERMINO INDEPENDIENTE Cc= "5 
1ó0 INPUT C 

170 D=B"2-4*XAXC 

¿20 IF Dí0 THEN GOTO 260 

190 X1=(-B+SQR(D))/(2XA) 

200 x2= (-B-SQR(D))/(2%A) 


210 PRINT 

220 PRINT "LAS RAICES DE LA ECUACION SON REALES :" 
230 PRINT "X1 = "3 X1 

290 PRINT "xX2 = "j Xx2 

250 STOP 

260 R=-E/(2%XAM) 

270 Y=SGR(-D)/(2%XA) 

220 PRINT 


270 PRINT "LAS RAICES DE LA ECUACION SON COMPLEJAS :" 
300 PRINT "X1 = "3 R 3rerjrpra” 

310 PRINT "X2 = "3 R 3"-"prprir 

320 END 


60 RESOLUCION DE ECUACIONES 


ejercicios resueltos: 


A 2 
1. Resolver la ecuación: xXx +2x-3=0 
SOLUCION: 
COEFICIENTE DE X*2 .... A = 7? 1 
COEFICIENTE DE X PO E 
TERMINO INDEPENDIENTE CG. 
LAS RAICES DE LA ECUACION SON REALES 
Xi = 1 
X2 = -3 
2 . 2 
e Resolver la ecuacion: x -—-8x3+016=0 
SOLUCION :: 
COEFICIENTE DE X"2 .... A= 7? 1 
COEFICIENTE DE » veas Du. PG 
TERMINO INDEPENDIENTE Cc =? 16 
LAS RAICES DE LA ECUACION SON REALES : 
Xi= 4 
x2= 4 
3 6 a E 
e Resolver la ecuación: xXx" -6x3+ 13=0 
SOLUCION : 
COEFICIENTE DE X*2 .... A=? 4 
COEFICIENTE DE xX .... B= ?P-6 
TERMINO INDEPENDIENTE Cm 713 
LAS RAICES DE LA ECUACION SON COMPLEJAS : 
Xi = 3 + 24 
X2 x= 3-23 
4 , ¡ 2 a 
e Resolver la ecuación: 2x7" +3x+4=0 


SOLUCION : 


COEFICIENTE DE X*2 .... A 
COEFICIENTE DE X <=... E 
TERMINO INDEPENDIENTE Cc 


Il 
O 
E Un 


LAS FAICES DE LA ECUACION SON COMPLEJAS : 
x1 2.75 + 1.1989579 i 
X2 2.75 - 1,.1989579 i 


BUSQUEDA DE RAICES: METODO DE BISECCION 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la bisección está basado en el teorema de Bolzano y es un pro 
cedimiento iterativo que consiste en ir haciendo cada vez menor el interva 
lo que contiene a una raiz. La iteracción se para cuando el intervalo que 
contiene a la raiz es menor que el error máximo deseado prefijado D. 

La función se introduce en la linea 270 en la forma: 270 Y = F(x) 
a continuación se introducen los límites del intervalo en el que se trata 
de ver si existe una raiz para la función. 

La linea 370 sirve para ver como se realiza la convergencia hacia 
la raiz en las sucesivas iteracciones. En caso de que unicamente se quiera 


la raiz, se puede omitir la linea 370, 


listado del programa: 


10 REM RRA OIOOIOAIOIOIIIIEIIEMNAAAAIAAAAE 
20 REM 3 


ZO REM BUSQUEDA DE RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE LA BISECCION) 

60 REM 


70 REM IRSE 0000022020090 
100 FRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 
120 PRINT "DEL-SIGUIENTE MODO 2 2720 Y = ,....oo..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR" ; 

160 INPUT X0O,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

180 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 

200 INPUT I 

210 GOSUB 290 
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21? REM - SALIDA DE RESULTADOS - 
220 PRINT 


230 PRINT "UNA RAIZ ES X=" X 3"CON UN ERROR 


240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES 


250 PRINT "EL NUMERO DE ITERACCIONES REALIZADO 


260 GOTO 450 
270 Y= 

280 RETURN 
290 J=0 

300 xX=X0 

2310 GOSUE 270 
320 YO=Y 

230 X=X1 

340 GOSUB 270 
350 X=(X0+X1)/2 
350 GOSUB 270 


269 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ 


370 PRINT J,X 

380 J=J+1 

390 IF J>=1I THEN 440 

400 IF YXYO = O THEN GOTO 440 
410 IF YXYO ¿2 0 THEN. X1i=>X 

420 IF YXYO > O - THEN  xX0=X 

430 IF ABES(xX0-51)>D THEN GOTO 300 
490 RETURN 

430 END 


ejercicios resueltos: 


¡ las raices de la ecuación: y 


SOLUCION: 


Estudiaremos la función en los siguientes intervalos: 


(-2.5, O) y (5, 10) 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 


DEL. SIGUIENTE MODO" + DO Y m coo nenon 

A CONTINUACION PULSAR <CONT> 

270 Y= XXXKX+IAXKX-4IRX-12 

e Ejecución: 

LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR? O 
ERROR MAXIMO DESEADO? 1E-06 . 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 

2.5 

1.25 

1.875 

2.1875 

2.03125 

1.953125 

1.9921875 

2.0117187 

2.0019531 

1.9970703 

1.9995117 

2.0007324 


--I0N3N004dNro 


Po 


E] 


MENOR GUE"5¿D 


= la 


INCLUIR LÍNEA 5-0 


2 


(0,5); 


3x -4x- 


(-6, 
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12 2.0001221 
13 1.9998169 
14 1.9999695 
15 2.0000458 
16 2.0000076 
17 1.9999886 
18 1.9999981 
19 2.0000029 
20 2.0000005 
21 1.9999993 
L£2 1.9999999 


UNA RAIZ ES X= 1.9999999 CON UN ERROR MENOR QUE 1E-06 


EL VALOR CORRESPONDIENTE PARA Y ES =-2.3841858E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 23 


a 


2” Ejecución: 


LIMITES DEL INTERVALO ¡ INFERIOR Y SUPERIOR?-á  -2.5 
ERROR MAXIMO DESEADO? ,00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 

[o] -4.25 


1 -3.375 

2 -2.9375 

3 -3.15625 

4 -3.046875 

S -2.9921875 
ó -3.0195312 
rá -3.0058594 
8 -2.9990234 
9 -3.00294914 
10 -3.0007324 
11 La PIPBITO 
12 -3.0003052 
13 -3.0000916 
14 -2.99992847 
15 -3.0000331 
16 -3.0000114 
17 -2.9999981 
183 -3,.0000048 


UNA RAIZ ES X =-3.0000048 CON UN ERROR MENOR QUE .00001 


EL VALOR CORRESPONDIENTE PARA Y ES =-.000023842091 
EL NUMERO DE ITERACCIONES REALIZADO ES = 19 


e Ejecución: 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR?-2.5 
ERROR MAXIMO DESEADO? 1E-08 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


UNA RAIZ ES X =-2 CON UN ERROR MENOR QUE 1E-08 
EL VALOR CORRESPONDIENTE PARA Y ES = 7.4505806E-09 
EL NUMERO DE ITERACCIONES REALIZADO ES = 28 
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en Ejecución: 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR? 5 10 
ERROR MAXIMO DESEADO? l1E-064 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


UNA RATZ ES X = 9.2729994 CON UN ERROR MENOR QUE 1E-06% 
EL VALOR CORRESPONDIENTE FARA Y ES = 1247.9993 
FL NUMERO DE ITERACCIONES REALIZADO ES = 23 


En las dos primeras ejecuciones hemos visto como convergen los valores ha- 
cia la raiz. En la tercera ejecución hemos quitado la instrucción 370 para 
obtener unicamente la raiz. 

En estos casos como existe una raiz en los intervalos dados, la busqueda 
converge hacia la raiz proporcionandonos una aproximación de ella. En cam- 
bio en la cuarta ejecución, como el intervalo (5, 10) no contiene ninguna 
raiz, la iteracción acaba en uno de los extremos del intervalo produciendo 
se aparentemente un error, que se detecta facilmente al ver que el valor 


de la y correspondiente no tiende a cero como en los otros casos. 


Z. Calcular una raiz de la función: y = x- 2 cos x enel interyalo 
(O, 7/2) con un error de 1”, 


SOLUCION :: 


DEFIMA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO 3: 270 Y = ¿ooo o... 

A CONTINUACION PULSAR ¿CONT > 

270 Y = X-2%C0S 1%) 


LIMITES DEL INTERVALO : INFERIOR Y SUPERICR? O 1.57 
ERROR MAXIMO DESEADO? .C0O0001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


0 . 2859 

1 1.1275 

2 «98125 

3 1.079372 

4 1.0303125 
5 1.00573813 
lo] 1.0120469 
Ed 1.0241792 
2 1.02-2461 
9 1.0287793 
10 1.0295459 
11 1.0299292 
12 1.0297375 
13 1.0298334 
14 1.0298813 
15 1.02923573 
1ó 1.0298693 
17 1.0298633 


UNA RAIZ ES X= 1.0298633 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-8.712057E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 18 


J.R.VIZMANOS 65 


3. Calcular una raiz de la función: y = e* + x enel intervalo (-1,0) 


con un error de 10”. 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 220 
DEL SIGUIENTE MODO 3 270 Y = ¿2.o..... 

A CONTINUACION PULSAR <CONT> 

270 Y=EXP(X)+X 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR?-1 0 
ERROR MAXIMO DESEADO? .00001 


NUMERO MAXIMO DE ITERACCIONES -A REALIZAR? 60 


0 =.5 

1 =.?75 

2 -.6253 

3 -.5625 

4 =.59375 

5 -.578125 

ó -.5703125 

ES -,56640625 

8 -.56835938 

2 -,.567382891 

10 -. 566289453 

11 -.56713867 

12 -.56726074 

3 -.56719971 

14 -.567?16919 

15 -,56715393 

16 -.5671463 
UMA RAIZ ES X =-.5671463 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-4.7184221E-06 


EL NUMERO DE ITERACCIONES REALIZADO ES = 1? 


BUSQUEDA DE RAICES: METODO DE NEWTON 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de Newton es un procedimiento iterativo de forma que en cada nue 
va iteracción obtenemos un valor más aproximado del verdadero valor de la 
raiz. Es preciso introducir un valor inicial o valor de conjetura. 

La función se introduce en la linea 310 en la forma: 310 Y = F(X). 
y en la linea 32o se introduce la derivada de la función, en la forma si- 
guiente: 320 DY = F'(X). 

La linea 360 sirve para ver como se realiza la convergencia hacia 
la raiz en las sucesivas iteracciones. En caso de que unicamente se desee 
la raiz, se debe omitir la linea 360. 


listado del programa: 


10 REM IRRRSRRAOARIOASIOOOOOIOOOOOIOOIIIIROI ORIIRORIOOOIOOOIOOIOIIIOIOIIIOIOIIOOIIAA K 
20 REM 


30 REM BUSQUEDA DE RAICES R OEAÁATLIES DE 
40 REM 

50 REM FUNCIONES (METODO DE NEWTON) 

60 REM 


A ES ES 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310" 
120 PRINT "DEL SIGUIENTE MODO 2 310 Y =...ooo..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320" 
160 PRINT “DEL SIGUIENTE MODO : 320 DY =.....o.o..” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

120 STOP 

190 PRINT "INTRODUZCA UN VALOR INICIAL"; 

200 INPUT Xx0O0 

210 PRINT "ERROR MAXIMO DESEADO"; 

220 INPUT D 


J.R.VIZMANOS 67 


230 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 
240 INPUT I 


250 GOSUB 340 
259 REM - SALIDA DE RESULTADOS - 


260 PRINT 
270 PRINT "UNA RAIZ ES X ="3 X ¡"CON UN ERROR MENOR QUE"5D 
230 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES ="3Y 


2720 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES ="; 
300 GOTO 440 

310 Y= 

320 DY= 

330 RETURN 

340 J=0 

350 X=X0 

359 REM - SI SE DESEA VER LA CONVERGENCIA HAY QUE INCLUIR LA INSTRUCCION 360 - 
360 PRINT J,X 

370 GOSUB 310 

380 X0O=X0-Y/DY 

390 J=J+1 

400 IF J >= I THEN GOTO 430 

410 IF ABS(Y/DY)>D THEN GOTO 350 

420 xX=x0 

430 RETURN 

440 END 


ejercicios resueltos: 


1. Calcular una raiz de la función: y = e. -—- cos X 
SOLUCION : 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310 
DEL SIGUIENTE MODO ¿ 310 Y Eoooo csm.» 

A CONTINUACION PULSAR <CONT> 

310 Y=EXP (X) -COS(X) 


DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320 
DEL SIGUIENTE MODO : 320 DY =....oo.a.. 


A CONTINUACION PULSAR <CONT> 
320 DY=EXP (X)+SIN (5%) 


INTRODUZCA UN VALOR INICIAL? 1 
ERROR MAXIMO DESEADO? .00001 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 50 


e 1 

1 «382816552 

2 » 092030346 

3 . 00734623293 

3 . 000053231583 
5 2.7?509124E-09 


UNA RAIZ ES X =-1.6401812E-10 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 2.9149305E-09 
EL NUMERO DE ITERACCIONES REALIZADO ES = 6 


2. Hallar una raiz de la función: y = x(x-3) (x-5) 
SOLUCION: 
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DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310 
DEL SIGUIENTE MODO 2 310 Y =...oooo.. 

A CONTINUACION PULSAR <CONT > 

310 Y=X*X(X-3)X (X+5) 


DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320 
DEL SIGUIENTE MODO : 320 DY =.......+ 


A CONTIMUACION PULSAR <CONT> 
320 DY = 3XXXX+94X-15 


INTRODLIZCA UN VALOR INICIAL”? 2 
ERROR MAXIMO DESEADO? 1E-08 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


e) 2 

1 4.8 

E 3.6451718 
3 3. 129703 
3 3.0070404 
5 3,.0000226 
ó 3 


UNA RAIZES X= 3 COM UN ERROR MENOR RUE 1E-08 
EL VALOR CORRESFONDIENTE PARA Y ES = 5.5987/29354E-092 
EL NUMERO DE ITERACCIONES REALIZADO ES = ? 


3. Hallar una raiz de la función: y = X - sen X 
SOLUCION : 


INTRODUZCA UN VALOR INICIAL? 1 
ERROR MAXIMO DESEADO”? .O0001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR” 40 


je] 1 

1 ¿655194507 

2 «3359032 

3 ¿2281424 

4 «19183231 

a] «127280967 

6 . O85183233 

? . 056781953 

2 . 0378525798 

92 .025234946 

10 .016822795 
11 «011215126 
12 .0074767224 
3 .0049845038 
14 . 0033230309 
15 . 002215388289 
16 .00147685584 
17? .00098466714 
1s . 00065643637 
19 .00043741155 

20 . 0002912183 

UNA RAIZ ES X= ¿00019396122 CON UN ERROR MENOR QUE .0001 


EL VALOR CORRESPONDIENTE FARA Y ES = 4. 1602277E-12 
EL NUMERO DE ITERACCIONES REALIZADO ES = 21 


BUSQUEDA DE RAICES: METODO DE LA SECANTE 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la secante es un procedimiento iterativo, para el cuál se pre 
cisa introducir dos valores iniciales o de conjetura, el error máximo de- 
seado, y el número máximo de iteracciones a realizar. 

En la linea 270 se introduce la función, del siguiente modo: 
270 Y = F(X). 

Si se desea ver la convergencia hacia la raiz se debe incluir la 
instrucción 380. Por el contrario si unicamente se quiere el resultado del 


valor aproximado de la raiz se debe omitir la instrucción 380. 


listado del programa: 


10 REM RRRRRRRRRORRORRRORRARRRORRRARARORORAOARDORORDODORODOARDAOODROREDROIROODEI OEI OI AIR 
20 REM 


30 REM BUSQUEDA DE RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE LA SECANTE) 

60 REM 


70 REM 2889222208220 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 
120 PRINT "DEL SIGUIENTE MODO : 270 Y = ¿coo oo..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP . , 

150 PRINT "INTRODUZCA DOS VALORES INICIALES"; 

160 INPUT X0,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

120 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 

200 INPUT I 

z10 GOSUB 290 

219 REM - SALIDA DE RESULTADOS - 

220 PRINT 
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230 PRINT "UNA RAIZ ES X ="3 X ¿"CON UN ERROR MENOR QUE";D 
240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES =";Y 
250 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES ="3J 
260 GOTO 460 

270 Y= 

280 RETURN 

290 J=0 

300 X=X0 

310 GOSUB 270 

320 YO=Y 

330 X=X1 

340 GOSUB 270 

350 Yi=Y 

360 IF Y1i=YO THEN Yi1i=Y1+.0001 

370 X=(XOXY1-YOXX1)/1Y1-YO) 

379 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIF LINEA Ec 
380 PRINT J,X 

390 J=J+1 

9400 IF J>=1I THEN GOTO 450 

910 IF ABS(xXO0-:1)íD THEN GOTO 450 

420 XO=Xx1 

430 X1=X 

440 GOTO 300 

150 PETURN 

3460 END 


ejercicios resueltos: 


1. Calcular una raiz de la función : y = x” - 10 x + 8 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = ...oo o». 

A CONTINUACION PULSAR <CONT> 

ZTO YX ORIO 


INTRODUZCA DOS VALORES INICIALES? 1 ó 
EFROR MAXIMO DESEADO? .09001 

MUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
1.030303 

1.06662814 

. 249234948 

. 86578992 

¿564634651 

. 26464088 

. 264640292 


A A O 


UNA RAIZ ES X= ¿26464082 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 1.69?6637E-08S 
EL NUMERO DE ITERACCIONES REALIZADO ES = ? 


de Calcular una raiz de la función: y = ae cotg Xx 
SOLUCION: 


J.R.VIZMANOS 


71 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = 


A CONTINUACION PULSAR <CONT> 
270 Y=EXP (Xx) - (COS(X)/SIN(x)) 


INTRODUZCA DOS VALORES INICIALES? 1 3 
ERROR MAXIMO DESEADO? .00001 . 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 

le] .87742748 

1 .78477501 

2 . IP669796 

3 33842123 

4 ¿[5316511 

a] . 53138898 

é .53139086 

7? «33139036 
UNA RAIZ ES X= ¿5313902 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE FARA Y ES = 2.7939%677E-09 


EL NUMERO DE ITERACCIONES REALIZADO ES = S, 


BUSQUEDA DE RAICES: METODO DE LA REGULA FALSI 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la regula falsi o la regla de falsa posición es un procedimien 
to iterativo, tal que en cada iteracción se obtiene un valor más aproximado 
de la raiz. Al igual que el método de la secante, en este caso, se precisa 
introducir dos valores iniciales a partir de los cuales se inicia la iterac 
ción, también es preciso dar el error máximo deseado para la obtención de 
la raiz, asi como el número máximo de iteracciones a realizar. 

La función se introduce en la linea 270 del siguiente modo: 
270 Y = F(X). . 

Si se desea ver como se realiza la convergencia hacia, la raiz en las 
sucesivas iteracciones se incluirá la intrucción 410, en caso contrario se 


omitirá dicha instrucción. 


listado del programa: 


10 REM AAA OOO ROI III NORRIS HR RIIIE RINA AA 
20 REM 


Z3O REM EUSQUEDA D 'E RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE LA REGULA FALSI) 

60 REM 


70 REM IRRADIA IO NR III III III IAEA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 
120 PRINT "DEL SIGUIENTE MODO 2 270 Y = ¿......” 

130 PRINT "A CONTINUACION PULSAR  <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA DOS VALORES INICIALES"; 

160 IMPUT XO,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

130 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 

200 INPUT I 

210 GOSUB 290 
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219 REM - SALIDA DE RESULTADOS - 

220 PRINT 

230 PRINT "UNA RAIZ ES X ="5X ;"CON UN ERROR MENOR QUE";D 
240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES = "¡Y 
250 PRINT "EL NUMERO DE ITERACCIONES REALIZADAS ES =";3 J 
260 GOTO 570 

270 Yz- 

280 RETURN 

290 J=0 

300 IF XO<X1 THEN GOTO 340 

310 X=X0 

320 XO=X1 

330 Xi=X 

340 X=X0 

350 GOSUB 270 

360 YO=Y 

370 Xz=X1 

380 GOSUB 270 

390 Yi=Y 

400 X=(XOX*Y1-YOXX1)/(Y1-YO) 

409 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIR LINEA 410 - 
410 PRINT J,X 

420 J=J+1 

430 IF J>=1 THEN 560 

440 IF ABS(X-X1)<D THEN 560 

450 GOSUB 270 

460 IF Y*XYO>O THEN GOTO 520 

470 IF Y*XY1=0 THEN 560 

480 X1=X 

490 Yi=Y 

500 YO=.S5*YO 

510 GOTO 400 

520 XO=X 

530 YO=Y 

540 Yi=.5*Y1 

550 GOTO 400 

560 RETURN 

570 END 


ejercicios resueltos: 


1. Calcular una raiz de la función: y = e + xXx 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = 
A CONTINUACION PULSAR  <CONT> 
270 Y=EXP (X)+X 


INTRODUZCA DOS VALORES INICIALES?-1 2 
ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 
-.81076457 

-.60735051 

-.53966%61 

-.57895455 

-.5608617 

-.57020197 

-.56559764 


DOOo0Aadnr-ro 
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? -.56791297 
8 -= 56675791 
9 -,56733591 


UNA RAIZ ES X =-.56733591 CON UN ERROR MENOR QUE .000O01 
EL VALOR CORRESPONDIENTE PARA Y ES = .00060399232 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 10 


INTRODUZCA DOS VALORES INICIALES?-1 Ya 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


e) -.81076457 

1 -= 60735051 

2 =.53P66%6é1l 

3 -.57895455 

4 - 5608612? 

5 -. 57020197 

é 156559764 

E -.56791297? 

2 -.566725791 

e -.56733591 

10 -.5670469%8 

11 -.56719145 

12 -,5é67?711921 

13 -.56715533 

14 -=.56713727 

15 -.567146é3 
UNA RAIZ ES X =-.5671463 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA YES = 9.433561E-06 


EL NUMERO DE ITERACCIONES REALIZADAS ES = 1é 


y Calcular una raiz de la función: y = 2 x* + 3 


SOLUCION : 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = ....... 

A CONTINUACION PULSAR —<CONT> 

A A E A 


INTRODUZCA DOS VALORES INICIALES? 2 ? 
ERROR MAXIMO DESEADO”? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 
1.2723361 

1.9204232 

1.8291026 

1.6881374 

1.5210734 

1.4101946 

1.4216704 

1.4149256 

1.4180014 

1.416407 


YD00NOou0noAdNro 


5 X 


7 


UNA RAIZ ES 
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EL VALOR CORRESPONDIENTE PARA Y ES = 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 


INTRODUZCA DOS VALORES INICIALES? 2 


ERROR MAXIMO DESEADO? 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


00 YJDbDiNAadNr-ro 


1.9723361 
1.9204232 
1.8291026 
1.ó238281374 
1.5210734 
1.4101946 
1.4216704 
1.4149256 
1.4180014 
1.416407? 

1.4171912 
1.4167964 
1.4169932 
1.4162947? 
1.4169439 
1.4169193 
1.41ó69316 
1.4169255 


. 0OOO1 


A 


10 


Xx = 1.416407 CON UN ERROR MENOR QUE 
. 028230861 


. 00001 


UNA RAIZ ES X= 1.4169255 CON UN ERROR MENOR QUE 
EL VALOR CORRESPONDIENTE PARA Y ES = 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 


SOLUCION: 


. 00010776334 
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3. Calcular una raiz de la función: y 


Xx 


. 00001 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO 


A CONTINUACION PULSAR 


270 Y=X-3XSIN(X) 


270 Y = 


¿CONT > 


INTRODUZCA DOS VALORES INICIALES? 1 
ERROR MAXIMO DESEADO? 1E-06 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 


VONO0O0AdNro 


1.6426045 
2.5005062 
2.0636869 
2. 3350529 
2.2349181 
2.2950812 
2.269185 

2. 2832108 
2.2765535 
2.2799782 


= 


UNA RAIZ ES X = 2.2799782 CON UN ERROR MENOR QUE 1E-06 
EL VALOR CORRESPONDIENTE PARA Y Es = 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 


-.0068084879 


10 


TO 


BUSQUEDA DE RAICES: METODO DE AITKEN 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de Aitken es un procedimiento iterativo, para el que se requiere 
la introducción de un valor inicial o valor de conjetura, el error máximo 
deseado para la raiz aproximada, el número máximo de iteracciones a reali- 
zar y el factor de convergencia, (un valor normal es F = -1). 

La función se introduce en la linea 300 en la forma siguiente: 
300 Y = F(X). 

Si se desea ver como se realiza la convergencia hacia la raiz es 
preciso incluir las lineas 390 y 430, en caso contrario, cuando unicamente 


se desea el valor de la raiz, basta con omitir las dos lineas anteriormen- 
te dichas. 


listado del programa: 


10 REM IRSRRRROSIOOOSORIRSOAORIORORIRR 090 0100090092203 000000N00000000R0RRREX 
20 REM 


30 REM BUSQUEDA p E RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE  AITREN) 

é6C REM 


70 REM ISR IRONIA RARA RARA 
100 PRINT 

109 REM - ENTRADA DE DATOS 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300" 
120 PRINT "DEL SIGUIENTE MODO : 300 Y =...o.o.o..” 

130 PRINT "A CONTINUACION FULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA UN VALOR INICIAL”; 

1ó0 INPUT XxO 

170 PRINT "ERROR MAXIMO DESEADO"; 

180 INPUT D 

1920 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 

200 INPUT 1 

210 PRINT "FACTOR DE CONVERGENCIA"; 

220 INPUT F 
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230 GOSUB 320 

237 REM - SALIDA DE RESULTADOS - 

240 PRINT 

2530 PRINT "UNA RAIZ ES X ="3 X ¿"CON UN ERROR MENOR QUE"5D 
260 GOSUB 300 

270 PRINT "EL VALOR. CORRESPONDIENTE PARA Y ES ="3Y 

2820 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES ="5J 

290 GOTO 560 

300 Y= 

210 RETURN 

320 J=0 

Z3IO0 X=Xx0 

390 GOSUB 300 

350 Y=X+YXF 

360 IF J>0 THEN GOTO 420 

370 Mi=Y 

380 X=X1 

389 REM -SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIR LINEA 390 Y 430- 
390 PRINT J,X 


400 J=J+1 

410 GOTO 340 

420 X2=Y 

430 PRINT J,X 

440 J=J+1 

950 K=X2-2%XX1+X0 

460 C=(X1-X2)X(X1-X2)/K 
970 C=(X1-X2)% (X1-X2)/K 
480 x2=X2-C 

490 IF J>=I THEN GOTO 550 
500 IF ABS(C)<D THEN GOTO 550 
510 xO=X1 

520 X1=X2 

S30 x=X1 


590 GOTO 340 
550 RETURN 
260 END 


ejercicios resueltos: 


1. Calcular una raiz de la ecuación: y = EA 
SOLUCION: 
Haremos tres ejecuciones del mismo programa variando unicamente el factor 
de convergencia F, para F = 0,1; PF = 1; F = 2. En cambio,el valor ini- 
cial, el error máximo deseado y el número máximo de iteracciones permane- 
cen constantes en las tres ejecuciones. 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO 3 300 Y =5+s.«.... 

A CONTINUACION PULSAR <CONT> 

300 Y=EXP (Xx) 4+X 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
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FACTOR DE CONVERGENCIA? .1 
-1.0632121 
-1.0632121 
-.353400396 
-.528726796 
-.56944213 


LbU4nNnr-r”o 


UMA RAIZ. ES Xx =-.56944213 CON UN ERROR MENOR QUE .0O0001 
EL VALOR CORRESPONDIENTE PARA Y ES =-.003601106 
EL NUMERO DE ITERACCIONES REALIZADO ES = S 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 1 
-1.6321206 

-1.6321206 

- 503319353 

-. 39213667 

-. 57505399 

-, 522833073 

- .5é615025 

¿56447626 

-. 56726773 

156742738 

o - . 567122769 


00070 0MdnNnro0 


UNA RAIZ ES XxX =-,5ó712-692 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = .000024442058 
EL NUMERO DE ITERACCIONES REALIZADO ES = 11 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 2 
-2.2642411 

-2.26942411 

-.47706669 

-. 13506262 

- 5801036 

62469022 

5652613 

- 55871011 

. 56741568 

- 568367221 

10 -.56710385 

56696676 

567149 


JD0y 0 054dNnro 
1 


h 
nNn - 
IN] 


UNA RAIZ ES X =-.5672149 CON UN ERROR MENOR QUE .0O0001 
EL VALOR CORRESPONDIENTE PARA Y ES =-23.9494179E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 13 


Ze Calcular una raiz de la ecuación: y =xXx-2sen XxX 
SOLUCION : 


Para esta ejecución hemos omitido las lineas 390 y 430. 
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DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO : 300 Y “.ocooo.... 

A CONTINUACION PULSAR <CONT> 

300 Y=X-2XSIN(X) 


INTRODUZCA UN VALOR INICIAL? 1 

ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 2 


UNA RAIZ. ES X= ¿000013428417 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-,000013428417 
EL NUMERO DE ITERACCIONES REALIZADO ES = 11 


3. Calcular una raiz de la ecuación: y = x(x + 3) (x - 2) (x - 5) 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO : 300 Y =........ 

A CONTINUACION PULSAR <CONT> 

300 Y=XX(X+3)IX(X-Z)%(X-5) 


INTRODUZCA UN VALOR INICIAL? 3 

ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 1000 
FACTOR DE CONVERGENCIA? 2 


UNA RAIZ ES X =-3 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 5.4202975E-06 
EL NUMERO DE ITERACCIONES REALIZADO FS = 445 
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TABULACION DE UNA FUNCION REAL DE 
VARIABLE REAL 


introducción: 


Este breve programa sirve para realizar una tabulación de cualquier 
función de la forma: Y = F(X). Para ello es preciso introducir la función 
en la linea 250 mediante su definición, del siguiente modo: 

250 DEF FN F(X) = ....... 

Además se ha de introducir en la linea 160 los límites del interva- 

lo en el que se desea la tabulación y a continuación el valor del incremen 


to deseado en la linea 190. 


A veces puede interesar redondear los valores de x y de y para 
no trabajar con tantos decimales. 


listado del programa: 


10 REM IRIS A ARA 
20 REM 


30 REM TABULACION DE UNA FUNCION 
40 REM 

50 REM REAL DE VARIABLE REAL 

60 REM 


70 REM FRIO A RARA REA 
100 PRINT 

110 PRINT "DEFINA LA FUNCION QUE DESEA TABULAR EN LA LINEA 250" 
120 FPRINT "DEL SIGUIENTE MODO : 250 DEF FN F(X)= .ooonno. ” 
130 PRINT "A CONTINUACION PULSAR <¿CONT>" 

190 PRINT:STOP 

150 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TAEULAR”; 
150 INPUT A,E 

170 PRINT 

180 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

190 INPUT H 

200 PRINT 

210 PRINT 

220 PRINT "VALORES DE X", "VALORES DE Y=F (x)"” 

230 PRINT "AIROSO 

240 FOR X=A TO E STEP H 

250 DEF FN F(X)= 

260 PRINT X,FN F(X 

270 NEXT X 

280 END 
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ejercicios resueltos: 


sen X 


Litera la función: y = e” 


mento de 0.25. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA TAEULAR EN LA LINEA 250 

DEL SIGUIENTE MODO : 250 DEF FN F(X)= coo... ooo 

A CONTINUACION PULSAR <¿CONT> 

INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 4 


INTRODUZCA EL VALOR DEL INCREMENTO? .25 


VALORES DE X VALORES DE Y=F (Xx) 
EEES 

1 .84147098 

1.25 . 75918770 

LS 66499666 

1.75 . 56227768 

Ya . 95464871 

2.25 .34581031 

2.5 . 23938886 

2.75 «1327285282 

3 . 04704000 

3.25 -.03329081 

3.5 -. 10022378 

3.75 -=.15241635 

4 -,.128720062 


á ; x é 

Ze Estudiar la función: y = Xx en el intervalo lO, 
mento de 0.2. 

SOLUCION: 

DEFINA LA FUNCION QUE DESEA TABULAR EN LA LINEA 250 


DEL SIGUIENTE MODO : 250 DEF FN F(X)= ....oo.. 
A CONTINUACION PULSAR <CONT> 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 3 


INTRODUZCA EL VALOR DEL INCREMENTO? .2 


VALORES DE X VALORES DE Y=F (X) 
ES 
0.0 1.0000 
.2 .7248 
.4 .6931 
.Ó . 72360 
.3 . 8365 
1.0 1.0000 
1.2 1.2446 
1.4 1.4017? 
1.6 2.1213 


3] 


en el intervalo [1, 4] con un incre 


con un incre 
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1.8 2.8807 
2.0 4.0000 
2.2 5.6667 
2.4 8.1754 
2.8 11.9931 
2.8 17.2666 
==0 27.0000 
3. Estudiar la función: y = po bot en el intervalo 
sen” Xx 


un incremento de O.1l. 
SOLUCION : 


DEFINA LA FUNCION QUE DESEA TABEULAR EN LA LINEA 250 
DEL SIGUIENTE MODO : 250 DEF FN F(x)= 
A CONTINUACION PULSAR <¿CONT> 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 3. .94159 


INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=F (Xx) 
IAN AAA AA AA AAA AAA AAN AAA MAA AAA 


1 1.1634 
1.1 1.0481 
1.2 «79738 

A ES «23103 
1.4 .?14282 
1.5 .«P2321 
1.6 .PIÓ?3 
1.72 1.01s551 
1.83 1.114282 
1.9 1.25645 
2 1.46126 
2.1 1.-5701 
2.2 2.20091 
2.3 2.87922 
2.4 3.97097 
2.5 5.84436 
2.6 9.350595 
2.7? 16.76008 
2.8 35. 51348 
2.7 99.3798288 
3 493.27567 


19626.772069 


[1, 7] 


con 


OPERACIONES CON FUNCIONES REALES DE 


VARIABLE REAL 


introducción: 


Este programa sirve para calcular la suma, diferencia, producto y 


cociente de dos funciones dadas en forma explícita. Para ello hemos de in- 


troducir las funciones, mediante su definición del siguiente modo: 


270 DEF FN F(X) oo... 
280 DEF FN G(X) = ...... 


En el caso de que la función G(X) se anule en el intervalo [A, B] 


el cociente no será posible produciendose un error aritmético. 


listado del programa: 


10 REM 2988299020020 AAA AA RANA 
20 REM 

30 REM OPERACIONES CON FUNCIONES 

40 REM 

50 REM REALES DE VARIABLE REAL 

60 REM 

70 REM IRRRRRRORARADORORORDORAORRRDRRRORARRORORORDRRRRRRARARARRRRARDAROEAOROROROCOOODORDRR 
100 PRINT 

110 PRINT "DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280" 

120 PRINT "DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES” 

130 PRINT 

140 PRINT "270 DEF FNF(X)= ....."” 

150 PRINT "280 DEF FNG(X)= .....” 

160 PRINT 

170 STOP 

180 PRINT 

190 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR"; 

209 INPUT A,B 

210 PRINT “INTRODUZCA EL VALOR DEL INCREMENTO"; 

220 INPUT H 

230 PRINT 

240 PRINT "VALORES DE X","FUNC.SUMA", "FUNC. DIFERENC","FUNC.PRODUC","FUNC. COCIENT 
250 PRINT "MIRRORS RIOS 
AAA 


260 FOR X=A TO B STEP H 
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270 DEF FNF(X)= 

280 DEF FNG(X)= 

290 FS=FNF (X)+FNG (X) 
300 FD=FNF (X) -FNG (X) 
310 FP=FNF (X)%XFNG (X) 
320 FC=FNF (X) /FNG (2%) 
330 PRINT X,FS,FD,FP,FC 
340 NEXT X 

350 END 


ejercicios resueltos: 


2 
1. Dadas las funciones: F(x) = 3 x + 5 Y G(x) = = > a E 
Hallar las funciones: F(x) + G(x); F(x) - G(x); F(x).G(x); F(x)/G(x) 


en el intervalo [1, 3] 
SOLUCION : 


con un incremento de 0,25. 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <¿CONT> DESPUES 


¿O DEF FNFiXx)=3% «5 
280 DEF FNG (24)=(XXY+ ZHAO CEPA 


Le 


INTFRODLIZCA LOS EXTREMOS DEL INTERVALO A TALULAR? 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .25 


VAL.DE X FUNC . SUMA FUNC. DIFERENC FUNC. PRODUC FUINC. COCIENT 
FOIOS A EA ARA A ARA 
1 5.0000 11.0C000 -=  24.0000 - 2.6667 
1.25 7.6250 9.8750 9.8437 PERS 
1.5 9.3750 9,6250 ; 1.185 -70. 0000 
1.75 10.7750 9.7250 S.3si3 179.5238 
2 12.0000 10.0000 11.0000 11.0000 
2.25 13.1250 10.3750 1ó6.1563 2.5355 
2.5 14.1875 10.8125 21.0937 7.4074 
2.75 15.2083 11.2917 23.9479 ú. 7060 
3 16.2000 11.3000 30.8000 0. 3oJó 


2 
x 


2 Dadas las funci o O 
A unciones F-(x) 2 + sen x 


y G(x)= Ln (x+3) 
Hallar las funciones siguientes: 
F(x) + G(x); F(x) - G(x); 
en el intervalo [1, 3] 


SOLUCION: 


F (x) .G(x); 
con un incremento de 0.1. 


F (x)/G(x). 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES 


270 DEF FNF(X)=XXX/ (2+SIN(2x)) 
230 DEF FNG(X)=LOG (X+3) 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 
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FEO 


VALORES DE X FUNC. SUMA FUNC. DIFERENC FUNC.PRODUC FUNC.COCIENT 
MNRNRO ROO MMMM RMN IIA ME HORROR 


1,00000 1.73822 -= 1.03436 . 48788 «23386 
1.10000 1.222950 - 99248 59051 «27661 
1.20000 1.92621 es .94396 . 70481 . 34223 
1. 30000 2.023882 . 828835 . 83179 . 39096 
1.40000 2.13812 = . 32509 97270 . 49311 
1.50000 2.23470 z 175345 1.12900 . 49706 
1.60000 2.372951 > 67260 1.30242 "355926 
1.70000 2.51358 > ¿32155 1.49497 . 62422 
1. 250000 2.653911 = 2912 1.70900 . 69456 
1.9%09900 2.8150 .3JÓ3O? 1.94724 . 77098 
2, 00000 2.78434 > ¿2349549 2.21282 . 85427 
2.19000 3.16947 5 . 08201 2.50940 . 94537 
2. 20000 3. 37200 .07468 2.84120 1.04530 
2. 30000 3.59435 . 23894 3.21308 1.15527 
2.942000 3.383930 . 46650 3.63065 1.27662 
2.50000 4.11001 . 70051 4.10036 1.41092 
2.60000 4, 41010 . 26457 4.6295 1.55990 
2. 70000 4. 1.262727 5.22703 1.72554 
2.80000 5.11548 1.5997 5. 90222 1.21006 
2.90000 5. 53068 1.9807? 6.66623 2.1159 
3,00000 5.99317 2. 41165 7.33150 2.334597 


3 
3. Dadas las funciones: F(x) = Vo y G(x) = cos (x%, 
Hallar las funciones siguientes: "+ 


F(x) + G(x); F(x) - G(x); 
Ls 31 


F(x).G(x); 
con un incremento de 0.1. 


F (x)/G(x) 
en el intervalo 
SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES 


270 DEF FNF(X)=((2%X+1)/ (X*Xx+1))7 (1/3) 
280 DEF FNG(X)=COS (XKXXXXX) 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .i 


VALORES DE X FUNC . SUMA FUNC. DIFERENC FUNC. PRODUC FUNC. COCIENT 
BARRIOS INR MNR NINAS HEN IRIAI III IINIRIIIIIININIIRRARAAA 


1.00000 1.£2502 . 60441 «61349 2.118366 
1.10000 1.237282 1.02483 «12043 10.62333 
1. 20000 63506 1.593232 = ¿53824 - 2.3173 
1.30000 .14243 2.06153 = le it -= 1.1432399 
1.400020 . 32200 1.S85167 = .8312 - 1.42100 
1.50000 1.9146? . 72066 -36758 3.12437 
1.60000 2.02031 .09299 1.01326 1.02%650 

. 70DOS ¿56415 1.351969 = . 97730 - 2.12078 
1.30000 . 349329 1.S5o5s1i8 => . 47030 -= 2.15125 
1.70000 1.920705 . 12006 . 70560 1.13437 
2.00000 094234 1.95766 -= "93766 - 1.043921 
2.10000 1.817305 «16073 «S1533 1.19456 
2.20000 «21223 1.11015 S .13242 - ?7.16750 
Z. 30000 ] . 007283 1.92019 = «92177 - 1.00400 
2.40000 Neira 1.13995 = . 15025 - 5.0083527 
2.530000 14479 .r 3294 .19334 4.337929 
2.60000 pena 1.07192 = “¿13362 - 6.944369 
2.70000 = ¿042826 1.28323299 = . 22593 = "95003 
2.30000 1.11031 . 70407 .18427 4. 46626 
2.90000 ¿83312 «23763 = «¿03772 -21.23815 
. 00000 1.66459 «11122 . 638762 1.14320 


COMPOSICION DE FUNCIONES REALES DE 
VARIABLE REAL 


introducción: 


Este sencillo programa sirve para realizar la composición de dos 
funciones. Para ello es preciso introducir las dos funciones mediante su 
definición del siguiente modo: 

260 DEF FN F(X) = .....+.. 
270 DEF FN G(X) 2 ...... 


Como siempre que se pretende tabular una función hemos de dar el intervalo 


en el que se pretende estudiar y el incremento de la variable X. 


listado del programa: 


10 REM IRSRRRRRRRORRRRRARRARRRRRRRRRRRRRRRORDORRRRRARDARRRDRARARARDARAORAORORERDOOOOEOADOAN EXA 
20 REM 


30 REM COMPOSICION DE FUNCIONES 
40 REM 

50 REM REALES DE VARIABLE REAL 

60 REM 


70 REM IRRIRRSRSOORSOOSROSOROIRRRI 90209 0990990909090999IOOOIOIOIIOIIIOIOOOIAA 
100 PRINT 

110 PRINT "DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,220" 
120 PRINT "DEL SIGUIENTE MODO Y PULSAR <¿CONT> AL FINALIZAR.” 

130 PRINT 

140 PRINT:PRINT "260 DEF FN F(X)=.....” 

150 PRINT:PRINT "270 DEF FM G(X)=..... ds 

160 PRINT:STOP 

170 PRINT 

180 PRINT "EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA"; 
190 INPUT A,B 

200 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

210 INPUT C 

220 PRINT 

230 PRINT "X","F(X)","G(X)","H(X)=G(F (X))" 

240 PRINT "IRIARTE FETO REFIERE III FIN HAAAAAAA 
2530 FOR X=A TO B STEP C 

260 DEF FN F(X)= 

270 DEF FN G(X)= 

280 HX=FNG(FN F(X)) 

290 PRINT X,FN F(X),FN G(X),HX 

300 NEXT X 

310 END 
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ejercicios resueltos: 


1. Dadas las funciones: F(x) = sons, y G(x) = In (x + 2), estu- 
diar la función compuesta H(x) = G(F(x)) en el intervalo [1, 3] con un 
incremento de 0,05. 

SOLUCION : 


DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,270 
DEL SIGUIENTE MODO Y PULSAR <CONT> AL FINALIZAR. 


260 DEF FN F(X)= (SIN(Xx))73 
270 DEF FN G(X)=LOG(X+2) 


EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA? 1 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .05S 


Xx F(X) G(X) H(X)=G(F (X)) 
ARO 0032020302000 2909090922209 
1 . 59582324 1.0986123 . PI390371 
1.05 . 65266923 1.1151416 . 97556639 
L.1 . 20784194 1.1314021 99615199 
1.15 . 76045833 1.1474025 1.0153967 
1.2 . 80965943 1.1631508 1.0330633 
1.25 . 85462879 1.178655 1.0489418 
1.3 . 39461018 1.1939223 1.0623504 
1.35 92892383 1.2089603 1.0746351 
1.4 . 95698124 1.2237754 1.08416829 
1.45 .97829789 1.2383742 1.091352 
1.5 . PIZIOS7?7? 1.252763 1.0961104 
1.55 29935143 1.2669476 1.0983961 
1.6 . 99872135 1.2809338 1.09828186 
.1.65 . 990624549 1.2947272 1.0954822 
Ln 7 . 97520228 1.3083328 1.090312 
1.75 . 25272308 1.3217558 1.0827278 
1.9 . 92357684 1.3350011 1.0728078 
1.85 . 28226637 1.3480731 1.0606564 
Le .84739645 1.3609766 1.0464051 
1.95 . 80166079 1.3737156 1.0302124 
2 . 75182694 1.3862944 1.0122é5 
2.05 . 69871975 1.3287169 . 99277749 
2.1 64320355 1.410987 «27199165 
2.153 .38616357 1.4231083 . 925017553 
2.2 .52848696 1. 4350845 .922762108 
2.25 . 471043388 1.446919 . 2704640685 
2.3 . 41466897 1.458615 8815622 
2.35 . 36014378 1.4701758 . 85872254 
2.4 . 30813042 1.4816045 . 83645952 
2.45 . 25940685 1.4929041 .B81510232 
2.5 «21435411 1.5040774 . 79496076 
2.55 . 17344584 1.5151272 +. 277631385 
2.6 13699019 1.5260563 . 75939839 
2.65 . 10517446 1.5368672 . 74439834 
2.7? . 0780624937 1.5475625 . 73143595 
2.75 . 055594691 1.5581446 . 72056519 
2.8 .037591385 1.56286159 . 71176842 
2.85 . 02375822 1.57289787 . 70495629 
La? . 013694689 1.5892352 .69997119 
2.95 . 0069048744 1.5993876 . 69659367 
3 . 002381038 1.6094379 .69455139 


88 : FUNCIONES REALES DE VARIABLE REAL 


2. Dadas las funciones: F(x) = x + 2, y G(x) = 5 x, estudiar la 
función compuesta H(x) = G(F(x)) en el intervalo [1, 3] con un incremen- 
to de 0.2. 


SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,270 
DEL SIGUIENTE MODO Y PULSAR <CONT> AL FINALIZAR. 


260 DEF FN F(X)= 
270 DEF FN G(X)= E 


2 
1, 
2 


+ 
X 


EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA? 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .2 


(8) 


Xx F(X) G(Xx) H(X)=G(F(X)) 
OOOO IIA: 

1 3 a] 15 

1.2 3.2 a) 1é 

1.4 3.4 7 1? 

1.ó 3.6 e 182 

1.8 3.8 2 19 

2 3 10 20 

2.2 4.2 11 21 

2.4 4.4 12 ze 

2.6 4.6 13 23 

2.8 4.8 14 24 

3 5 15 25 


FUNCION EXPONENCIAL 


introducción: 


Este programa sirve para estudiar la función exponencial de la forma 
y = a* . Para ello el programa solicita la introducción de la base a (a>0) 
posteriormente se fijan los límites del intervalo y el incremento de la va 
riable x. 

El programa imprime el estudio de la función y = at y de la fun- 
ción y = E”, con el fin de poder ver las propiedades de las funciones 


exponenciales según que la base sea mayor o menor que la unidad. 


listado del programa: 


10 REM IRRRRRORRNRRRIRRRIRRRORIRR90909209209202020900929009209090900290090N29N09209099909002N9000N00006% 
20 REM 

30 REM ESTUDIO DE LA 

40 REM 

50 REM FUNCIO N EXPONENCIAL 

60 REM 

70 REM IRRRRIRORRA00090202020002020202202020282020202200902022092282292920922N20929099809292029202090000416% 
100 PRINT 

110 PRINT "INTRODUZCA LA BASE DESEADA"; 

120 INPUT A 

130 PRINT 

140 PRINT "EXTREMOS DEL INTERVALO EN QUE DESEA ESTULIAR LA FUNCION"; 
150 INPUT M,N 

160 PRINT 

170 PRINT "VALOR DEL INCREMENTO"; 

130 INPUT C 

190 PRINT 

200 PRINT 

210 PRINT "X","A“X","(1/4)*X" 

220 PRINT  "MRRRRROARRSRORORORRREOOORAOOORODORDEOOOOAAAAAAARAAA 

230 FOR X=M TO N STEP C 

240 F=A*X 

250 G=(1/A)?x 

260 PRINT X,F,G 

270 NEXT X 

280 END 
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Xx 
1. Estudiar la función: y = 2 e y=( ) en el intervalo[ O, 3] 
con un incremento de 0.25. 
SOLUCION: 


INTRODUZCA LA BASE DESEADA? 2 
EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? O 
VALOR DEL INCREMENTO? .25 


(0) 


ps A“X (1/A)*x 
ROO OOOO 


0.00 1.00000000 1.000000000 
.25 1.18920711 8408796415 
50 1.41421356 .707106781 
.”5 1.621792873 .594603557 
1.00 2. 00000000 . 500000000 
1.25 2.37841423 . 420448208 
1530 2.82842713 - 353553391 
1.75 3. 36352566 297301779 
2.00 4. 00000000 . 230000000 
2.25 4. 75682846 ¿210224104 
2.50 5.65625425 176776695 
S.75 6.?72717133 . 148650889 
2.00 2. 00000000 . 125000000 
Dos las funciones: y = 1.5 y y = (353) en el intervalo 

[-6, 6] con un incremento de O.5. 


SOLUCION : 


INTRODUZCA LA BASE DESEADA? 1.5 
EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION?-6 = 
VALOR DEL INCREMENTO? .5 


Xx APSX (1/0)*x 
ROO OOOO RAR 


-6.00 . 08779150 11.32062500 
-5.50 «10752218 F9.300940637 
-=5.00 «13168723 P.5S737 3000 
-4.50 . 16122328 6. 20027091 
-4.00 . 19753086 5. 06250000 
-3.50 «241924991 4. 133513949 
-3.00 . 22629630 3. 37500000 
-2.50 . JÓZ8S737 2. 75567596 
=2. 00 . 449494439 Z. 25000000 
-=1.50 ¿394433105 1.53711731 
-1.00 » G66G6ÓGGÓ”? 1.50000000 
-= .50 .816476582 1.224744827 
0.00 1. 00000000 1.00000000 
. 530 1.22473487 .81649658 
1,00 1. 50000000 . ÉGÓ6GGGGÓ? 
1.50 1.83211731 3949433105 
2.00 2. 25000000 . 444944444 
2.50 2. 73567596 . 3Ó288737 
3.00 3.37500000 . 2292629630 
3.50 4.133513949 «24192491 
4.00 5.06250000 «12733086 
4.50 6.20027091 «16122328 
5.00 7.59375000 «13168724 
5.50 9.30040637 . 10732218 
6.00 11.392062500 . 08779150 


CAMBIO DE BASE LOGARITMICA 


introducción: 


Los microordenadores tienen como función de librería la función lo- 
garitmo neperiano, que se escribe LOG(x). Este programa sirve para calcu- 
lar logaritmos en cualquier base a, (a > 0), sin más que tener en cuenta 


la siguiente expresión: 
ln x 
ln a 


log, x = 


listado del programa: 


10 REM 2490940921200 
20 REM 


30 REM CAMBIO DE 

40 REM 

50 REM BASE LOGARITMICA 

60 REM 

70 REM RRA 
100 PRINT 


110 PRINT "INTRODUZCA LA BASE EN LA QUE DESEA TRABAJAR"; 
120 INFUT A 

130 PRINT 

140 PRINT "VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO"; 
150 INPUT »% 

160 PRINT 

170 LX  =LOG(X)/LOG(A) 

150 PRINT "EL LOGARITMO EN BASE";Aj5"DE"3xX53"ES = "3LX 

1920 PRINT 

200 PRINT 

Z10 GOTO 140 

220 END 


ejercicios resueltos: 


1. Calcular: 109, 7, 109; 256, 109,» 3209 
SOLUCION : 
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INTRODUZCA LA BASE DESEADA EN LA QUE DESEA TRABAJAR”? 12 
VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 2 


EL LOGARITMO EN BASE 12 DE 7? ES =  .7830918285 


VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 256 


EL LOGARITMO EN BASE 12 DE 256 ES = 2.23154936 


VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 3209 


El LOGARITMO EN BASE 12 DE 2209 ES = 23.2491018 


FUNCION LOGARITMICA 


introducción: 


Este breve programa sirve para estudiar la función logarítmica de 


base a, (a > 0). También hemos de dar el intervalo en el que se desea es- 


tudiar y el incremento de la variable x. 


El programa imprime el estudio de la función: y = log, x y el 


de la función: y = 109 (1/a) Xx , con el fin de poder ver las propiedades 
de las funciones logarítmicas según que la base sea mayor o menor que la 
unidad. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM FERRETERIAS IRTE MEET HERE HERRERO IRTE RIERA 
REM 
REM ESTUDIO DE LA 
REM 
REM FUNCIO N LOGARITMICA 
REM 
REM 2848820002022 IAEA 
PRINT 

PRINT "INTRODUZCA LA BASE DESEADA"; 

INPUT A 

PRINT 

PRINT "EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION"; 
INPUT M,N 

PRINT 

PRINT "VALOR DEL INCREMENTO"; 

INPUT C 

PRINT 

PRINT 

PRINT "X","LOGA(X)","LOG(1/A) (X)" 

PRINT MIRROR AORTA FT TTIIEI FEF IEIERETETE 

FOR X=M TO N STEP C 

F=LOG (X) /LOG(A) 

G=LOG (X) /LOG(1/A) 

PRINT X,F.,G 

NEXT X 

END 
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ejercicios resueltos: 


1. Estudiar las funciones: y 


intervalo 


SOLUCION: 


INTRODUZCA LA BASE DESEADA? 10 


EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? 1 
VALOR DEL INCREMENTO? 1 


“MY 
mn 


FOO IO OOOO OI III REA 


1,00 
2.00 
3.00 
4,00 
5.00 
6.00 
7.00 
8.00 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
15.00 


pa Estudiar las funciones: y = log,Xy 
intervalo [0.5; 3.9] con un increment igual a 0.2. 


LOGA (Xx) 


0. 00000000 
. 30103000 
.97712125 
. 60205999 
. 67297000 
«277815125 
. 24509804 
. 20308999 
. 5424251 

1.00000000 

1.04139269 

1.0791381253 

1.113924335 

1.1461282804 

1.17609126 


SOLUCION: 


LOG(1/A) (Xx) 


0. 00000000 
. 30103000 
47712125 
. 60205999 
. 69297000 
77815125 
.84509304 
. 20308992 
. 95424251 

1.00000000 

1.04139269 

1.07918125 

1.11394335 

1.14612804 

1.17609126 


INTRODUZCA LA BASE DESEADA? 2 


EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? 
VALOR DEL INCREMENTO? 


Xx 


. 30 
. 70 
.90 
1.10 


LOGA (Xx) 


1.00e00000 
«31457317 
«15200309 
«13750352 
.37851162 
. 38496250 
.2É655934975 
. 92599942 
1.07038933 
1.20163386 
1.321922309 
1.432935941 
1.53605290 
1.63226822 
1.72246602 
1.80735492 
1.2282732527 
1.96347412 


LOG(1/A) (Xx) 
IO OIR ERA 


1.00000000 
¿51457317 
«15200309 
«13750352 
«37851162 
. 38496250 
. 276553975 
.92399942 

1.07038933 

1.201ó633836 

1.32192809 

1.43295941 

1.53605290 

1.63226822 

1.72246602 

1.280735492 

1.288752527 

1.96347412 


log,¿* A 
[1, 15] con un incremento igual a 1. 


y o A 


FUNCIONES TRIGONOMETRICAS DIRECTAS 


introducción: 


Este programa permite estudiar las funciones trigonométricas direc 
tas: y=senx, y=CcOoSsx, ya= tagox. 

Una vez seleccionada la función que desea estudiar, se ha de intro- 
ducir los límites del intervalo asi como el incremento de la variable x. 

Los ángulos están dados en radianes, en el supuesto de que se desea 
se trabajar con ángulos expresados en grados, minutos y segundos, bastaría 


con convertirlos previamente a radianes. 


listado del programa: 


10 REM RRRRRRRRRRRRRORRDORARRRRRORRARIORORRORORRRRRRRRIISIOIOOO OOOO ORAR 
20 REM 


30 REM ESTUDIO DE LAS FUNCIONES 
40 REM 

50 REM TRIGONOMETRICAS DIRECTAS 
60 REM 


70 REM RIRS IIOROINIARIIIIIIIIIIIIIEA 
100 PRINT 

A EE 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 
130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y = SEN (X)” 

1650 PRINT "2,- FUNCION Y COS (x)” 

170 PRINT "3.- FUNCION Y = TAG (X)" 

130 PRINT:FRINT 

120 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 
200 INPUT P 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = SEN (X) - 

250 PRINT "VALORES DE X", "VALORES DE Y=SEN(X)" 

260 PRINT R$ 

270 FOR X=A TO B STEP H 

280 Y = SIN(X) 

290 PRINT X,Y 
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300 NEXT Xx 

310 GOTO 180 

320 GOSUB 429 

327 REM - ESTUDIO DE LA FUNCION Y = COS (Xx) - 
330 PRINT "VALORES DE X", "VALORES DE Y=C0S(X)" 
390 PRINT Rs 

350 FOR X=A TO B STEP H 

360 Y = COS(X) 

370 PRINT X,Y 

330 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409% REM - ESTUDIO DE LA FUNCION Y = TAG (X) - 
410 PRINT "VALORES DE Xx", "VALORES DE Y=TAG(X)" 
420 PRINT Rs 

430 FOR X=A TO B STEP H 

440 Y=SIN(X)/COS(X) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479 REM - SUBRUTINA DE ENTRADA DE DATOS - 

420 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" ; 
49%0 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


ejercicios resueltos: 


Ls Estudiar la función: y = tag X en el entorno del punto 7/2. 
SOLUCION: 


Obsérvese la discontinuidad de la función y = tag x en el punto x = 1/2. 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.569 1.573 


INTRODUZCA EL VALOR DEL INCREMENTO? .0O001 


VALORES DE X FALORES DE Y=TAG(X) 
ISR IOOIIAEA 


1.5690 556.69 
1.5691 5289.51 
1.5692 626.44 
1.5693 668.30 
1.5694 716.16 
1.5695 271.41 
1.5696 835.89 
1.5697 912.14 
1.5698 1003.69 
1.5699 1115.66 
1.5700 1255.77 
1.5701 1436.11 
1.5702 1676.93 
1.5703 2014.80 
1.5704 2523.18 


1.5705 3374.66 
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A A O a a on a 


1.5706 5093.57 
1.3707 10381.43 
1.5708 - 272174.11 
1.5709 - 9645.58 
1.5710 - 4909.80 
1.5711 - 3293.00 
1. 5712 - 2477.24 
1.3713 = 1985.41 
1.5714 - 1656.52 
1.3715 > 1421.11 
1.5716 -=  *1244.28 
1.571? - 1106.59 
1.5718 - 996.34 
1.5719 - 906.06 
1.3720 = 830.79 
1.5721 - 767.06 
1.5722 = 712.42 
1.5723 “ 665.04 
1.5724 > 623.57 
1.5725 E 586.97 
1.5726 > 554.42 
1.5727 - 525.30 
1.5728 > 499.08 
1.5729 > 475.36 
Le Estudiar la función: y = sen x en el primer cuadrante, con un in- 


cremento de O-+05. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 1.5707963 
INTRODUZCA EL VALOR DEL INCREMENTO? .0S 


4 


VALORES DE X VALORES DE Y=SEN(X) 
ARICA 
o 0. 000000000 
.05 .049979169 
el .099833417 
.15 . 149438132 HET 
.2 . 198669331 Si Pierde 
.25 .247403959 
3 . 295520207 E : : 
.35 . 342897807 03d Edda Ettia palo HE 
a csanaresaz (E eriosas la 
. . Hr Le $4 
3 . 479425539 ¡daba y dE: idad de 
.55 522687229 aii : HE na 
.6 . 564642473 E E En ea 
.65 605186406 ias iS 
3 .644217687 
.75 . 681638760 
.8 .717356091 
.85 .751280405 
.9 783326910 
.95 813415505 
1 .841470985 
1.05 867423226 
Lai .891207360 


1.15 .912763940 
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1.2 . 9232039086 
1.25 . 248924619 
1.3 +. PÉSISC1SS 
1.35 .« P7I3723358 
1.4 . 9253449730 
1.45 «992712991 
1.5 . 997494982? 
1.55 . 9997283764 


3. Estudiar la función: y = Cos X en el segundo cuadrante, con un 


incremento de O.O5. 
SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.5707763 
INTRODUZCA EL VALOR DEL INCREMENTO? .OS 


VALORES DE X VALORES DE Y=C0S (X) 
FOO OOO EN NENA AAA 
1.5707963 . 000000027? 
1.62079%63 -= .049979143 
1.6707963 - .099833390 
1.7207963 -= .149438106 
1.7707963 -= .198669305 
1.2207963 - ¿2474039349 
1.37077%63 -= ¿295520181 
1.92207963 = 1342897782 
1.97079%63 - .389418318 
2.0207963 - .9434965510 
2.0707963 - .979423515 
2.12079%63 -= ¿322687206 
2.17079%63 -= 1564642452 
2,.22077963 -= .»605186385 
2.2707963 -= .644217667? 
2. 3207963 -= .621638741 
2.3707963 = .717356073 
2. 4207963 -= .751280388 
2.4707963 -= ¿783326893 
2.5207963 - .813415490 
2.5707963 - ¿8941470971 
2.6207963 - .867423213 
2.67077963 - .891207348 
2.7207963 - ¿212763930 
2.7707963 =_.P32039077 
2.8207963 - .92489284611 
2.8707963 -= ¿.?Pó3558el79 
2.9207963 = 975723352 
2.9707963 -= .985449725 
3.0207963 - .992712988 
3.07079%63 -= 9974949825 
3.1207963 - .9997283764 


daa 


3.1415927 


120 13% 150 165 180 195 


¡Bor z = de a E 


Bd 


FUNCIONES TRIGONOMETRICAS INVERSAS 


introducción: 


Este programa sirve para estudiar las funciones trigonométricas in- 


versas: y = Ccosec xXx, y = sec xXx, y = cotg xXx. 
Una vez seleccionada la función que desea estudiar, 
ducir los límites del intervalo, asi como el incremento de 


Los ángulos han de darse en radianes. 


listado del programa: 


se ha de intro- 


la variable x. 


10 REM ARICA III 


ZO REM 

30 REM ESTUDIO DE LAS FUNCIONES 
40 REM 

50 REM TRIGONOMETRICAS INVERSAS 
60 REM 


70 REM IRRRRRIRORRRRRORRRORRORRRRORRRRORARORRORRRRRRORRRRORRRRRRARRRRORORORORRAROOAORDEAREd 


100 PRINT 
110 RB= "ISORA III IIA 


120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :” 


130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y = COSEC (X)" 
160 PRINT "2.- FUNCION Y = SEC (X)" 
170 PRINT "3.- FUNCION Y COTAG (X)" 
180 PRINT:PRINT 


190 PRINT "SEGUN LA OPCION DESEADA PULSE EL. NUMERO QUE LE PRECEDE” 5 


200 INPUT P 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 4729 

249 REM - ESTUDIO DE LA FUNCION Y = COSEC (XxX) - 
250 PRINT "VALORES DE X", "VALORES DE Y=COSEC (X)" 
260 PRINT R$ 

270 FOR *X=A TO B STEP H 

280 Y = 1/SIN(X) 

290 PRINT X,Y 

300 NEXT X 
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310 GOTO 180 
320 GOSUB 479 


32? REM - ESTUDIO DE LA FUNCION Y = SEC (X) 


330 PRINT "VALORES DE X", "VALORES DE Y=SEC (X)" 


340 PRINT Rs 

350 FOR X=A TO B STEP H 

360 Y=1/C0S(X) 

370 PRINT X,Y 

380 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = COTAG 


(Xx) - 


410 PRINT "VALORES DE X", "VALORES DE Y=COTAG(X)" 


420 PRINT R$ 

430 FOR X=A TO B STEP H 

440 Y=COS(X)/SIN(X) 

450 PRINT X,Y 

460 NEXT » 

470 GOTO 180 

479 REM - SUERUTINA DE ENTRADA DE DATOS - 


430 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" ; 


490 INPUT A,B 


500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 


510 INPUT H 
520 PRINT 
530 PRINT 
540 RETURN 
550 END 


ejercicios resueltos: 


1. Estudiar la función: y = cosec x 
con un incremento de 0.05. 
SOLUCION: 


en el intervalo 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = COSEC (X) 
2.- FUNCION Y = SEC (X) 
3.- FUNCION Y = COTAG (Xx) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 2 


INTRODUZCA EL VALOR DEL INCREMENTO? .05S 


VALORES DE X VALDRES DE Y=COSEC (X) 
HARRIS AA 

1 1.1828395 

1.05 1.152840 

1.1 1.122073 

1.15 1.095574 

1.2 1.072916 

1.25 1.053758 

1.3 1.037820 

1.35 1.024881 

1.4 1.014765 

1.45 1.007340 
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1.5 1.002511 

1.55 1.000216 

1.6 1.000427 

1.65 1.003145 

7 1.008405 

1.75 1.016275 HH ASIA! y Bd: 1:21 ¿Eo dE 5 aa 
1.8 1.026855 ERE . 038 : 
1.85 1.040285 Roci iaa E ía 
1.9 1.056747 ce 
1.95 1.076473 da AE HIOe OA EAAN 

Le Estudiar la función: y = sec x en el intervalo (O, 1] con un 


incremento de O.,O5. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .0S 


VALORES DE X VALORES DE Y=SEC (X) 

FONOS NRO HONRA MINOR R REN AECA 
O 1.000000 
.05 1.001251 
.1 1.005021 
¿15 1.011356 
.2 1.020339 
. 239 1.032085 
.3 1.046732 
.35 1.064540 
.9 1.085704 
. 945 1.110539 
5 1.139494 
«95 1.172987 
.6 1.211628 
.65 1.256149 
. 2 1.307459 
.75 1.366701 
.8 1.435324 
. 25 1.515190 
.9 1.608726 
.95 1.719149 
1 1.850816 


3. Estudiar la función: y = cotg x en el intervalo [|1.5; 1.64] 
con un incremento ¡igual a 0.005. 
SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.5 1.64 
INTRODUZCA EL VALOR DEL INCREMENTO? .005 


102 FUNCIONES REALES DE VARIABLE REAL 


VALORES DE X VALORES DE Y=COTAG(X) 
FOO II III III 
1.5000 .070915 
1.5050 .0652891 
1.5100 . 060871 
1.5150 . 055854 
1.5200 . 050890 
1.5250 . 0458283 
1.5300 . 040819 
1.5350 - 0353812 
1.5400 . OJOE06 
1.5450 . 025802 
1.5500 . 020799 
1.5550 .015798 
1.5600 010792 
1.5650 . 005796 
1.5700 . 000776 
1.5750 > . 004204 
1.5800 = . 009204 
1.5850 > .014205 
1.5900 iS .019206 
1.5950 = . 024206 
1.6000 = .029212 
1.6050 = 034217 
1.6100 = .0392249 
1.6150 di . 0494232 
1.6200 E .049293 
1.6250 E . 054257 
1.6300 = 059273 
1.6350 SS .064292 


1.6400 <= .069319 


RAZONES TRIGONOMETRICAS DE UN ANGULO DADO 


introducción: 


Este programa sirve para calcular las razones trigonométricas direc 


tas e inversas de un ángulo dado. El ángulo puede venir en radianes o en 


grados, minutos y segundos 


listado del programa: 


10 

20 

30 

40 

50 

60 

PO 

100 
110 
120 
130 
140 
150 
160 
169 
170 
180 
190 
200 
210 
220 
23 

240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


REM 3582520299920 OOOO OOO EFE IFE IFE HACIA AAA 
REM 
REM RAZONES TRIGONOMETRICAS 
REM 
REM DE U on ANGULO DADO 
REM 
REM RR OOOO AA ALE 
PRINT 
PRINT "SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 ” 
PRINT "SI EL ANGULO VIENE DADO EN GRADOS,MINUTOS Y SEGUNDOS, PULSE 2" 
INPUT P 
PRINT 
PRINT 
IF P=1 THEN GOTO 280 
REM - PASO DE GRADOS, MINUTOS Y SEGUNDOS A RADIANES - 
PRINT "INTRODUZCA LIS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO DADO" 
PRINT "GRADOS ="3 
INPUT 6G 
PRINT "MINUTOS ="3 
INPUT mM 
PRINT "SEGUNDOS  =";5 
INPUT S 
A=G+M/60+5/3600 
B= INT (A4/360) 
R=AX.01745329-BX2XP I 
GOTO 300 
PRINT "INTRODUZCA EL ANGULO EN RADIANES"; 
INPUT R 
F1=SIN(R) 
F2=COS(R) 
F3=F1/F2 
F4=1/F1 
FS=1/F2 
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350 Fé=1/FS 

360 PRINT 

370 PRINT 

379 REM - SALIDA DE RESULTADOS - 
380 FRINT "SEN(X) ="3F1 

390 PRINT "COS(X) ="3F2 

900 PRINT "TAG(X) ="53F3 

410 PRINT "COSEC(X)=";3F4 

420 PRINT "SEC (Xx) ="3FS 

4930 PRINT "COTAG(X)="3F6 

440 END 


ejercicios resueltos: 
1 


nes. 
SOLUCION 


e Calcular las razones trigonométricas de un ángulo igual a 2.54 radia 


SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 
SI EL ANGULO VIENE DADO EN GRADOS.MINUTOS Y SEGUNDOS, 


e 


PULSE 2 


INTRODUZCA EL ANGULO EN RADIANES? 2.54 


SEN (Xx) = ¿5ó6593Ó23 
COS (X) =-.829443529 
TAG(X =-.ó686477449 
COSEC(X)= 1.7669211 
SEC (X) =-1.2129515 
COTAG(X>)=-1.4567121 


Be Calcular las razones trigonométricas del ángulo: 35% 27' 45" 
SOLUCION 


SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 
SI EL ANGULO VIENE DADO EN GRADOS,MINUTOS Y SEGUNDOS, 
P 2 


ya 


PULSE 


INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO DADO 
GRADOS =? 35 

MINUTOS =P? 27? 

SEGUNDOS =”? 45 

SEN (Xx) = 58016992 

COS (xXx) = .81449547? 

TAG (X) = .71230589 

COSEC(X)= 1.723633 

SEC (X) = 1.2277539 

COTAG(X)= 1.4038912 


FUNCIONES TRIGONOMETRICAS RECIPROCAS 


introducción: 


Este programa sirve para calcular las funciones recíprocas de las 


trigonométricas. Permite estudiar las siguientes funciones: 


Los arcos obtenidos vienen dados 


Las funciones: 


L. 
Ze 
3. 


y = 
X 
Y 


el intervalo 


Las funciones: 
IR - 
Las funciones: 


o O 


1). 


todo x real. 


arc sen X 


arc COS X 


arc tag Xx 


Y = 
[=1 
y 


- 


y = 


arc sen X 
La) 


arc Ccosec XxX e y 


arc tg x 


4. 
5. 
6. 


e y = 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
z10 
220 


arc COS X 


arc sec X 


arc cotg x 


arc cosec X 
arc sec X 


arc cotg Xx 


en radianes. 


solo están definidas en 


estan definidas en 


estan definidos para 


REM 2064202090000 


REM 
REM 
REM 
REM 
REM 


ESTUDIO 


DE 


A 


TRIGONOMETRICAS 


Ss FUNCIONES 


RECIPROCAS 


REM III RINA: 


PRINT 


R$= "RRA 
"ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"1.- 
"2,- 
3. - 
"4,- 
q. 
"6.- 


FUNCION 
FUNCION 
FUNCION 
FUNCION 
FUNCION 
FUNCION 


<< 


ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


SEN (X)" 
COS (Xx)" 
TAG (X)" 
COSEC (X)" 
SEC (X)" 
COTAG (X)" 


106 FUNCIONES REALES DE VARIABLE REAL 


230 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 
240 INPUT P 

250 ON P GOTO 259,339,419,499,579,659 

259 REM - ESTUDIO DE LA FUNCION Y = ARC SEN (X) - 
260 GOSUB 739 

270 PRINT "VALORES DE X", "VALORES DE Y=ARC SEN (X)" 
280 PRINT Rs 

290 FOR X=A TO B STEP H 

300 Y=ASN(X) 

310 PRINT X,,Y 

320 NEXT *X 

330 GOTO 210 

2339 REM - ESTUDIO DE LA FUNCION Y = ARC COS (X) - 
340 GOSUB 739 

350 PRINT "VALORES DE X", "VALORES DE Y=ARC COS (X)" 
360 PRINT R$ 

370 FOR X=A TO B STEP H 

380 Y=PI/Z-ASN(X) 

390 PRINT X,,Y 

400 NEXT X*X 

410 GOTO 210 

419 REM - ESTUDIO DE LA FUNCION Y = ARC TAG (X) - 
420 GOSUB 739 

430 PRINT "VALORES DE X", "VALORES DE Y=ARC TAG (X)" 
440 PRINT R$ 

450 FOR X=A TO B STEP H 

460 Y=ATN(X) 

470 PRINT X,,Y 

480 NEXT » 

490 GOTO 210 

499 REM - ESTUDIO DE LA FUNCION Y = ARC COSEC (X) - 
500 GOSUB 739 

510 PRINT "VALORES DE X", "VALORES DE Y=ARC COSEC (X)" 
520 PRINT R$ 

530 FOR X=A TO B STEP H 

540 Y=ASN(1/X) 

550 PRINT X,,Y 

560 NEXT X 


570 GOTO 210 

579 REM - ESTUDIO DE LA FUNCION Y = ARC SEC (X) - 
580 GOSUB 739 

590 PRINT "VALORES DE X", "VALORES DE Y=ARC SEC (X)" 
600 PRINT R$ 

610 FOR X=A TO B STEP H 

ó620 Y=PI/2-ASN(1/X) 

630 PRINT X,.Y 

640" NEXT *X 

650 GOTO 210 

659 REM - ESTUDIO DE LA FUNCION Y = ARC COTAG (X) - 
660 GOSUB 739 

670 PRINT "VALORES DE X", "VALORES DE Y=ARC COTAG (X)" 
680 PRINT R$ 

690 FOR X=A TO B STEP H 

700 Y=ATN(1/X) 

710 PRINT X,,Y 

720 NEXT X 

730 GOTO 210 

739 REM - SUBRUTINA DE ENTRADA DE DATOS - 

740 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR"; 
750 INPUT A,B 

760 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

770 INPUT H 
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780 PRINT 
790 PRINT 
300 RETURN 
210 END 


ejercicios resueltos: 


1. Estudiar la fu:ición: y = arc sen Xx en el intervalo [O, 1] 
con un incremento de O.O5. 
SOLUCION : 


ESTE PROGRAMA LE FERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = ARC SEN (X) 
Z.- FUNCION Y = ARC COS (X) 
3.- FUNCION Y ARC TAG (5) 
4.- FUNCION Y = ARC COSEC (xx) 
S.- FUNCION Y = ARC SEC (X) 


6.- FUNCION Y = ARC COTAG (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABEULAR? O 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .OS 


VALORES DE x VALORES DE Y=ARC SEN (Xx) 
HONRAR NRO INICIAR KIRA 

o a 

. 050020857? 

.10016742 

. 15056827 

.20135792 

25263026 

30469265 

.3575711 

.31151685 

.46676514 

. 5235987 

58236424, 

64350111 ida 
. 70758444 

7 7753975 

«PS . 848062083 

¿92729522 


e 
.25 1.0159853 -75 
9 
Es 


cn 


0175 Adan», rro 


8] 


on 


an 


a 


cn 


0 
a 


E ola ala olx Slax 


1.1197695 
95 1.2532359 
1 1.57079%63 


1 
mia S 


'" 
Le 
>] 


2. Estudiar la función: y = arc cosec x en el intervalo [1,2] 
con un incremento de O.1l. 
SOLUCION: 


107 
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SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 4 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 2 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=ARC COSEC (X) 
DERE 

1 1.5707963 

1.1 1.1410967? 

1.2 +. ?8511078 

1.3 . 327763642 

1.4 . 79560295 

1.5 . 272972766 

1.6 . 67513153 

1.7? . 622387493 

1.82 . 58903097 

1.9 .55426183 

Ya . 52359878 


3. Estudiar la función: y = arc cos x en el intervalo [-1; 
con un incremento de O.O5. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 -=.05 
INTRODUZCA EL VALOR DEL INCREMENTO? .OS 


VALORES DE X VALORES DE Y=ARC COS (X) 
FOCOS IA 
-1 3.1415927 
=. 73 2.8240322 
9 2.6905658 
-.85 2.5867816 
-.8 2.4980915 
=.75 2.4188584 
+22 2.3461938 
-.65 2.2783808 
=.6 2.2142974 
=.55 2.1531606 
=.5 2.0943951 
-.95 2.0375617 
-=.4 1.9823132 
=.35 1.22283674 
=.3 1.2875489 
-.25 1.8234766 
a 1.7721542 
=.15 1.7213646 
21 1.6709637 


-.05 1.6208172 


-0.05] 


VALOR DE LAS FUNCIONES TRIGONOMETRICAS 
RECIPROCAS 


introducción: 


Este programa sirve para calcular las funciones recíprocas de las 


funciones trigonométricas para un valor dado. Los resultados se expresan 


en radianes. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 


100 
105 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


REM RRA: 


REM 
REM 
REM 
REM 
REM 


VALOR 


RECIPROCAS 


DE LA 


Ss FUNCIONES TRIG. 


DE UN Xx DADO 


REM RRA III IAF IA TIANAAAAAAA 


N$="NO EXISTE NINGUN ANGULO” 
R$="RADIANES” 

PRINT:PRINT:PRINT 
"INTRODUZCA EL VALOR DE X"; 


PRINT 
INPUT 


Y 
ES 


IF ABS(X)<1 AND X%¿>0 THEN GOTO 190 
IF ABS(X)>1 THEN GOTO 300 

IF X=1 THEN GOTO 410 
IF X=-1 THEN GOTO 480 
IF X=0 THEN 550 


A=ASN (X) 
B=1.5707963-ASN(X) 
C=ATN(X) 

G=ATN(1/X) 

PRINT "ARC SEN("3X3") 
PRINT "ARC COS("3X3") 
PRINT "ARC TAG("3X3") 
PRINT "ARC COSEC("5X3") 
PRINT "ARC SEC("3X5") 
PRINT "ARC COTAG("5X3") 
GOTO 110 

D=ASN(1/X) 
F=1.5707963-ASN(1/X) 
G=ATN(1/X) 

C=ATN(X) 


="5A5RS 
="5E5RS 
"5C GRS 
="3N$ 
"NS 
="5G;R$ 


110 


340 
350 
360 
370 
380 
390 
400 
405 
410 
420 
470 
440 
450 
460 
470 
480 
490 
500 
si0 
520 
530 
5330 
550 
560 
570 
580 
590 
600 
610 
620 
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PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
GOTO 110 
PI= 3.14159 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
GOTO 110 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
GOTO 110 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
PRINT "ARC 
GOTO 110 
END 


SEN("53X3") ="3NS$ 
COS ("5x3") ="3NS$ 
TAG("3X53") ="3C3R$ 
COSEC("3X53") ="3D3R% 
SEC (3x3) ="3F3RS$ 
COTAG("3X3") ="3G5R$ 
2654 

SEN (1) ="3P1/2 RS 
cos (1) = 0 "¡R$ 
TAG(1) ="3P1/9 RS 
COSEC(1) ="jPI/2;5RS$ 
SEC (1) = 0 "3RS 
COTAG(1) ="3P1I/9;3R% 
SEN (-1) ="j-PI/23R$ 
cos (-1) ="3PI53RS 
TAG(-1) ="3-P1I/9 3RSs 
COSEC(-1) ="53-PI/Z25RS$ 
SEC 1-4) ="3PI¡R$ 
COTAG(-1) ="533XP1/49;RsS 
SEN (0) ="30;R$ 

COS (0) ="3PI/2;¡R% 
TAG(O) ="30¡RS$ 
COSEC(O) ="3NS 

SEC (0) ="3NS$ 
COTAG(O) ="5PI/2;RS 


ejercicios resueltos: 


Xx 


1,54 y 


para Xx 


SOLUCION: 


INTRODUZCA EL 


ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


SEN( 1.5494 ) 
Cos” 1.54 ) 
TAG( 1.54 ) 
COSEC( 1,54 
SEC (1.59 


COTAG( 1.54 


== oo 
A 


.3759 


¡ EE el valor de las funciones trigonométricas recíprocas para 


O. 


VALOR DE X? 1.54 
=NO EXISTE NINGUN ANGULO 
=NO EXISTE NINGUN ANGULO 
979487773 RADIANES 
. 20673027 RADIANES 
: 269406603 RADIANES 


126 RADIANES 


INTRODUZCA EL VALOR DE Xx? O 


ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


SEN (0) 
COSs(0) 
TAG(O) 
COSEC (0) 
SEC. (0) 
COTAG(O) 


O RADIANES 


1.57077%63 RADIANES 


O RADIANES 


=NO EXISTE NINGUN ANGULO 
=NO EXISTE NINGUN ANGULO 


1.5707963 RADIANES 
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2. Calcular 


Xx = 


SOLUCION 


1 y 


x= 


=1,. 


INTRODUZCA EL VALOR DE X”? 1 
= 1.5707963 RADIANES 


ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


x = 


SEN (1) 
Cos (1) 
TAG(1) 
COSEC(1) 
SEC (1) 
COTAG(1) 


RODUZCA EL 
SEN (-1) 
COS (-1) 
TAG(-1) 
COSEC(-1) 
SEC (-1) 
COTAG(-1) 


O RADIANES 
. 78539816 RADIANES 


= 1.5707963 RADIANES 
= O RADIANES 


. 78539816 RADIANES 


VALOR DE X”?-1 

=-1.5707963 RADIANES 
= 3.1415927 RADIANES 
=-.78539816 RADIANES 
=-1.5707763 RADIANES 
= 3,.1415927? RADIANES 
= 2.3561945 RADIANES 


el valor de las funciones trigonométricas recíprocas para 


3. Calcular el valor de las funciones trigonométricas recíprocas para 
x = 0.785 


-0.234 


Y 


SOLUCION: 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


RODUZCA EL 


VALOR DE X?-.234 


) 

) 

) 
39 >) 

) 
34 ) 


) 


SEN (-.2349 
COS (-.234 
TAG(-.2349 
COSEC(-.2 
SEC (-.2349 
COTAG(-.2 
RODUZCA EL 
SEN( .?285 
cost .785 
TAG( .785 
COSEC( .785 ) 
SEC( .785 
COTAG( .7?785 ) 


-.23618988 RADIANES 
1.8069262 RADIANES 
-.22986408 RADIANES 


=NO EXISTE NINGUN ANGULO 
=NO EXISTE NINGUN ANGULO 
=-1,3409322 RADIANES 


DE xXx? .785 

:?0269613 RADIANES 
. 66810017 RADIANES 
. 66552744 RADIANES 


=NO EXISTE NINGUN ANGULO 
=NO EXISTE NINGUN ANGULO 


. 920526888 RADIANES 


FUNCIONES HIPERBOLICAS DIRECTAS 


introducción: 


Este programa permite estudiar las funciones hiperbólicas directas 


El cálculo se realiza a partir de las definiciones de las funciones, del 


siguiente modo: 


sen h x = 


tg h x 


e = 0 


e” + 
cos h x= Mil dl — UN 


Es preciso introducir los límites del intervalo asi como el incre- 


mento de la variable xXx. 


listado del programa: 


10 REM 2449989229202 2220222222212222220222229299 0090000909000 OOOO EA 


20 REM 

30 REM ESTUDIO D 

40 REM 

50 REM HIPERBOLICA 
60 REM 


LAS FUNCIONES 


= DIRECTAS 


70 REM 2494420222022 IO 


100 PRINT 


EE EEN 
120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 


130 PRINT 
140 PRINT 


150 PRINT "1.- FUNCION Y = SENH (X)" 
COSH (X)” 
170 PRINT "3.- FUNCION Y = TAGH (X)"” 


160 PRINT "2.- FUNCION Y 


180 PRINT:PRINT 


1920 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 


200 INPUT P 

210 IF P=-1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 4729 

249 REM - ESTUDIO DE LA FUNCION Y = 


(Xx) - 


250 PRINT "VALORES DE X", "VALORES DE Y=SENH (X)" 


260 PRINT RS 
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270 FOR X=A TO B STEP H 

280 Y = (EXP (X)-EXP (-X))/2 

290 PRINT X,Y 

300 NEXT *X 

310 GOTO 180 

320 GOSUB 479 

3292 REM - ESTUDIO DE LA FUNCION Y = COSH (X) - 
330 PRINT "VALORES DE X", "VALORES DE Y=COSH(X)" 
340 PRINT R$ 

350 FOR X=A TO B STEP H 

360 Y = (EXP (X)+EXP (-X))/2 

370 PRINT X,Y 

380 NEXT X*X 

320 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = TAGH (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y=TAGH(X)" 
420 PRINT R$ 

430 FOR X=A TO BE STEP H 

440 Y=(EXP (X) -EXP (-X))/ (EXP (X)+EXP (-X)) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479 REM - SUBRUTINA DE ENTRADA DE DATOS - 

480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" ; 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


ejercicios resueltos: 


1. Estudiar la función: y = cos h x en el intervalo [-1, 1] con 
un incremento de 0.05. 
SOLUCION: 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = SENH (X) 
2.- FUNCION Y = COSH (X) 
3.- FUNCION Y = TAGH (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS 


VALORES DE X VALORES DE Y=COSH (X) 
EAS 
-1 1.5430806 
-=.95 1.4862253 
9 * 1.4330864 


-.85 1.3835309 
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-.8 1.3374349 
-.75 1.2946833 
-.? 1.255169 
-.65 1.2187933 
-.6 1. 1854652 
-.55 1.1551014 
-.5 1.127626 
-.45 1.1029702 
-.4 1.0810724 
-.35 1.0618778 
-.3 1.0453385 
-.25 1.0314131 
-.2 1.0200668 
-.15 1.0112711 
-.1 1.0050042 
-.05 1.0012503 
3.6379788E-12 á 
.05 1.0012503 
nl 1.0050042 
.15 1,0112711 
¿2 1.0200668 
.25 1.0314131 
E 1.0453385 
.35 1.0618778 
.4 1.0810724 
.45 1.1029702 
.5 1.127626 
.55 1.1551014 
.6 1. 1854652 
.65 1.2187933 
> 1.255169 
.75 1.2946833 
.8 1.3374349 
.85 1.3835309 
.9 1.4330864 
.95 1.4862253 
1 1.5430806 


Ze Estudiar la función: y = sen h x en el intervalo |-3, 
un incremento de O.O5. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-3 =2 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS 


VALORES DE *X VALORES DE Y=SENH (X) 
FAO RIIIE TIRO III III 
3 -10.017875 
-2.95 -9.526807 
Liu ? -9.0595611 
-2.85 -8.6149688 
-2.8 -8.1919184 
-2.75 -7.789352 
Za 2 -7.4062631 
-2.65 -7.0416937 
-2.6 -6.6947322 


-2.55 -6.3645111 


-2] con 
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2.0 -6.0502045 
-2.45 -5. 7510266 
-2.4 -5.4662292 
-=2.35 -5.1951003 
=253 -4.93679618 
-2.25 -4.6911683 
Daz -4.4571052 
-2.15 -4.2341871 
-2.1 -4.0218567 
-2.05 -3,8195831 
=2 -3.6268604 


3. Estudiar la "función: y = tag h x en el intervalo 
un incremento de 0.1. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 2 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .i 


VALORES DE X VALORES DE Y=TAGH(X) 
2999799002909 
Le . 26402758 

2.1 97045194 

2.2 97574313 

2.3 . 7800964 

2.4 . 98367486 

2.5 . 866143 

2.6 . 98290274 

2.7? .99100795 

2.8 . PIZÓ3IDZ 

2.9 .PIIPÓZ1L? 

3 . 99505475 


[2, 


3] 


con 


FUNCIONES HIPERBOLICAS INVERSAS 


introducción: 


sas 


las 


cre 


Este programa sirve para estudiar las funciones hiperbólicas inver 


Y“ y = cosec h x, y = sec h x, y =cotghx. 
El calculo se realiza directamente a partir de las definiciones de 
funciones hiperbólicas directas. 
Es necesario introducir los límites del intervalo asi como el in- 
mento de la variable x. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
249 
250 
260 
270 
280 
290 


REM 5000300202000 0920209009900 00 IO ER REACH AR 
REM 


REM ESTUDIO D E LAS FUNCIONES 
REM ll 

REM HIPERBOLICAS INVERSAS 

REM 


REM 2990000900000 OI IO IIA 
PRINT 

RB= "AIN OEA AAAAAAAAAAA 

PRINT "ESTE FROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 

PRINT 

PRINT 


PRINT "1.- FUNCION Y = COSECH (X)" 
PRINT "2.- FUNCION Y = SECH (X)" 
PRINT "3.- FUNCION Y = COTAGH (X)" 


PRINT:PRINT 

PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 
INPUT P 

IF P=1 THEN 240 

IF P=2 THEN 320 

IF P=3 THEN 400 

GOSUB 429 

REM - ESTUDIO DE LA FUNCION Y = COSECH (X) - 
PRINT "VALORES DE X", "VALORES DE Y=COSECH (X)" 
PRINT Rs 

FOR X=A TO B STEP H 

Y = 2/(EXP(X)-EXP(-X)) 

PRINT X,Y 
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o PPP AAA 


300 NEXT *X 

310 GOTO 180 

320 GOSUB 479 

329 REM - ESTUDIO DE LA FUNCION Y = SECH (X) - 
330 PRINT "VALORES DE X", "VALORES DE Y=SECH (X)" 
340 PRINT Rs 

350 FOR X=A TO B STEP H 

360 Y=2/ (EXP (X)+EXP (-X)) 

370 PRINT X,Y 

380 NEXT X 

320 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = COTAGH (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y=COTAGH “(X)" 
420 PRINT Rs 

430 FOR X=A TO B STEP H 

440 Y=(EXP (X) +EXP (-X))/C(EXP (X) -EXP (-X)) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479.REM - SUBRUTINA DE ENTRADA DE DATOS - 

480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 

520 PRINT 

530 PRINT + 

540 RETURN 

550 END 


ejercicios resueltos: 


1. Estudiar la función: y = cosec h x en el intervalo [1, 2] con 
un incremento de O,O5. 
SOLUCION : 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = COSECH (X) 
2.- FUNCION Y = SECH (X) 
3.- FUNCION Y = COTAGH  (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 2 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS 


VALORES DE X VALORES DE Y=COSECH (X) 
FOOT IRIARTE A 

1 . 85091813 

1.05 77733931 

d.. 1 . 74870055 

1.15 . 70383969 

1.2 . 66248798 

1.25 . 62425126 

1.3 . 582879554 
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1.35 «55503575 
1.4 ¿52512693 
1.45 49645725 
1.5 . 46964244 
1.55 . 44452123 
1.6 . 42095197 
1.65 . 39880916 
hi7 37798153 
1.75 .35836971 
1.8 .33988469 
1.85 32244634 
1.9 ¿3059823 
1.95 290942694 
2 . 27572056 
Le Estudiar la función: y = sec h x en el intervalo [-1; 1.1] 


con un incremento de 0.1. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TAEULAR?-1 1.1 


INTRODUZCA EL VALOR DEL INCREMENTO? .,1 


VALORES DE VALORES DE Y=SECH (2%) 
ES 
4 64305427 
.2 .69779463 
-.8 . PAZÓPOOZ 
6 7 +. 726703546 
= 6 . 284355069 
=.5 . 328681288 
-.4 «9225300745 
=.3 .PI662791 
a . 2350328 
== 4 . PISO2075 
-5.956968282E-12 1 
. 1 . PISO2075 
2 . 980328 
3 . 25662791 
.9 . 22500745 
.5 . 288621838 
.Ó . 84355069 
.? .7?670346 
.8 . 247679992 
.9 . 69779464 
1 . 64805927 
1.1 392533406 


RAZONES HIPERBOLICAS DE UN ANGULO DADO 


introducción: 


Este programa sirve para calcular las razones hiperbólicas directas 
e inversas de un ángulo dado. 


listado del programa: 


10 
20 


REM 2989080920909 2029020202022 


REM 
REM 
REM 
REM. DE U ON 
REM 


RAZONES 


HIPERBOLICAS 


ANGULO DADO 


A EEE IS 


PRINT 

PRINT 

PRINT "INTRODUZCA EL VALOR DE Xx"; 
INPUT » 

A=EXP (Xx) -EXP (-%X) 
B=EXP (Xx) +EXP (-X) 

F1=A/2 

F2=B/2 

FI=A/B 

F4=1/F1 

FS=1/F2 

Fé=1/F3 

PRINT 

PRINT 

REM -SALIDA DE RESULTADOS - 
PRINT "SENH("3X3") ="3F1 
PRINT "COSH("3X3") ="53F2 
PRINT "TAGH("53X3") = 
PRINT "COSECH("3xX3") ="3F43 
PRINT "SECH("3X3") = 
PRINT "COTAGH("3X3") 
GOTO 100 

END 
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ejercicios resueltos: 


1. Calcular las razones hiperbólicas directas e inversas de x= 2,4 
y de x = -6.78. 


SOLUCION : 


INTRODUZCA EL VWYALCR DE X 


INTRODUZCA El VALOR DE XxX? 2.49 


SENH( 2.4 ) 5. 4662292 
CcosH(t 2.9 ) = 5,5569472 
TAGH( 2.4 ) = .928736-486 
COSECH( 2.4 ) = .182941497 
SECH( 2.9 ) = .1>995492 

) 


COTAGH( 2.4 = 1,.01653961 


INTFODUZCA El VALOR DE A7-ó6.78 


SENH(-8. 72 =-4340.03279 


COSH(-é6. 3 = 440.03493 
TAGH(-8. 22 =-.0299979,792 
COSECH(-6,.78 ) =-.00227239927 


= Mo 


SECH(-6.73 ¿0022725469 
COTAGH(-€.78 ) =-1,.000C0026 


3 Calcular las razones hiperbólicas directas e inversas de x = 2.6 
y de x = -0.25. 
SOLUCION: 


INTRODUZCA EL VALOR DE XxX? 2.6 


SENH( 2.6 ) = 6.694732 
COSH( 2.6 ) = 6. 7é4P?0058 
TAGH( 2.6 ) = 9820274 
COSECH( 2.6 ) = .14932117 
SECH( 2.6 ) = .14773218 
COTAGH( 2.6 ) = 1,0110943 


INTRODUZCA EL VALOR DE X?-.25 


SENH (-.25 ) =-.25261232 
COSH1(-.25 ) = 1.0319131 
TAGH(-.25 ) =-.24491866 
COSECH(-.25 ) =-3. 9586352 
SECH(-.25 ) = .26954363 

) 


COTAGH (-.25 =-4,0829882 


FUNCIONES HIPERBOLICAS RECIPROCAS 


introducción: 


Este programa sirve para estudiar las funciones hiperbólicas recí- 
procas de las funciones hiperbólicas directas, es decir: 
y = arc sen h x y = arc cos h x y = arc tg h x 

La función y = arc sen h x está definida para todo valor de x. 

La función y = arc cos h x está definida en el abierto (1, %“). 

La función y = arc tag h x está definida en el abierto (-1, 1). 
Como siempre hemos de introducir los límites del intervalo a estudiar, asi 


como el incremento de la variable x. 


listado del programa: 


10 REM SRA OOOO III RIFA AR A 
20 REM 

30 REM ESTUDIO DE LAS FUNCIONES 
40 REM 

50 REM HIPERBOLICAS RECIPROCAS 

60 REM 

70 REM RRA 0220020022020200090202020090000000016% 
100 PRINT 

110 RS$= "RRRRRRORORORDEARDOACORDARORRORIROOIOIOO OOOO IIA 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES" 
130 PRINT 

140 PRINT 

150 PRINT "1,- FUNCION Y ARC SENH (X)" 

160 PRINT "2.- FUNCION Y ARC COSH (X)" 

170 PRINT "3.,- FUNCION Y = ARC TAGH (X)" 

1320 PRINT:PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT FP 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = ARC SENH (Xx) - 

250 PRINT "VALORES DE X", "VALORES DE Y = ARC SENH (X)" 

260 PRINT RS 
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70 FOR xX=A TO B STEP H 
Y=LOG (X+SQR (XXX+1)) 
PRINT X,Y 
NEXT Xx 
GOTO 180 
O GOSUB 479 
REM - ESTUDIO DE LA FUNCION Y = ARC COSH (Xx) - 
PRINT "VALORES DE X", "VALORES DE Y = ARC COSH (X)" 
PRINT RS 
350 FOR X=A TO E STEP H 
360 Y=LOG(X+SQR(XXX-1)) 
370 PRINT X,Y 
380 NEXT X 
390 GOTO 180 
400 GOSUB 479 
409 REM - ESTUDIO DE LA FUNCION Y = ARC TAGH (Xx) —- 
410 PRINT "VALORES DE X",., "VALORES DE Y = ARC TAGH (Xx)” 
420 PRINT Rs 
430 FOR X=A TO B STEP H 
490 Y=.5XLOG((1+x)/(1-X)) 
950 PRINT X,Y 
460 NET X 
4720 GOTO 180 
479 REM - SURUTINA DE ENTRADA DE DATOS - 
480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR"; 
490 INPUT A,B 
500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 
520 PRINT 
30 PRINT 
540 RETURN 
550 END 


5) 
000O0 


o 


WU ta td dd AN NN 


BbUr5rYm"€ro 
wo 


o 


ejercicios resueltos: 


l enstuatar la función: y = arc sen h x en el intervalo l-1, 1.1] 
con un incremento igual a O.O5. 
SOLUCION: 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES 


1.- FUNCION Y = ARC SENH. (X) 
2.- FUNCION Y ARCE COSH (X) 
3.- FUNCION Y = ARC TAGH (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 1.1 
INTRODUZCA EL VALOR DEL INCREMENTO? .0S 


VALORES DE X VALORES DE Y = ARC SENH (XxX) 
OOOO 
-1 -.88137359 

-.95 -.8455727 

-.9 - 30836694 


-.85 “¿22123743 
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—————————— —_—_—____—_ 


==» 8 -,73266826 
=.75 -.69314718 
-.7 -. 65266657 
-.65 -.61122431 
-.6 -. 56288249 
== -,52548280495 
-. 5 -,. 48121183 
-.45 -.43604967 
4% -.39003532 
-.35 -.34322156 
— 6 3 -.29567305 
-.25 -.24746646 
-=.2 -.19869011 
-.15 -.149494312 
0 1 -,.099834079 
-.05 -.04997919 
3.637978828E-12 O 
.05 04997919 
ed 099834079 
.135 .14949312 
2 . 19269011 
.25 .24746646 
Ss 29567305 
AS a] . 34322156 
. 49 . 39003532 
.45 . 43604967 
¿5 48121182 
55 52548045 
.6 . 36283249 
.65 61122431 
o? . 65266657 
.?75 .69314718 
.8 .73266826 
.85 .?77123743 
.9 . 380226694 
.95 8455727 
1 28137359 
1.05 .91629073 
1,1 . 2350394693 
¿A Estudiar la función: y = arc tag h x en el intervalo Í-.9, .9] 


con un incremento igual a 0.1. 
SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-.9 .9 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y = ARC TAGH (X) 
ES 
Y -1,.4722195 

-.8 -1.0986123 

=.? -.86730053 

=.6 -.69314718 

=.5 -.54930614 

-.4 -. 42364893 

=.3 , -.3095196 


=. 2 -=.20273255 
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=¿£ -.10033535 
-4.5474735E-12 -1.4351915E-11 

. . 10033535 

«2 .20273255 

z .3095196 

.4 . 42364893 

3 .54930614 

.6 .69314718 

A 86730053 

.8 1.0986123 

.? 1.4722195 

3. Estudiar la función: y = arc cos h x en el intervalo[1.1, 


con un incremento igual a 0.2. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABEULAR? 1.1 S.1l 
INTRODUZCA EL VALOR DEL INCREMENTO? .2 


VALORES DE X VALORES DE Y = ARC COSH (X) 
PONT IMM MRMRNORNIIIIIARINIAIIIIIIIIIIIAA 
1.1 ¿44356825 

La. . 56943291 

1.5 . PÉZ423Ó65 

1.7 1.123231 

1.9 1.2571958 

2.1 1.37/28591 

2.3 1.4750448 

2.5 1.56672992 

2.7? 1.ó6501935 

2.9 1.7?267109 

3.1 1.7974566 


VALOR NUMERICO DE LA PRIMERA DERIVADA DE 
UNA FUNCION EN UN PUNTO 


introducción: 


Este programa permite hallar el valor aproximado que toma la deriva 
da de una función en un punto. La tunción a derivar se ha de definir en la 
linea 170, del siguiente modo: 170 DEF FN F(X) = ...... 

El cálculo de la derivada se realiza con arreglo a la definición de deriva 
da. 


listado del programa: 


10 REM IRRITANTE RERFIEIE RRA 
20 REM 

30 REM DERIVADA DE UNA FUNCION 
40 REM 

50 REM E N U ON PUNTO 

60 REM 

70 REM 2999900020020 8202022020202020202020220022000000000000N000N00000N0N00-00 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION A DERIVAR EN LA LINEA 170" 

120 PRINT "DEL MODO SIGUIENTE : 170 DEF FN F(X)=.......” 

130 FPRINT "A CONTINUACION PULSA <¿CONT>" 

140 STOP 

150 PRINT "PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA x0 =";5 

160 INPUT XO 

170 DEF FN F(X)= 

120 H=0 

190" FOR J=1 TO 8 

200 H1i=H 

210 X=xX0+.5%J] 

220 H=(FN F(X)- FN F(x0))/(X-X0) 

230 NEXT J 

240 D=2XxH-H1 

250 PRINT 

259 REM -SALIDA DEL RESULTADO - 

260 PRINT "EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO="5X0;"ES D(X0)="5D 
270 PRINT 

280 PRINT 

290 PRINT 

300 GOTO 150 

310 END 
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ejercicios resueltos: 


L; Hallar la derivada de la función: y = xo + sen x .e* - Ln (x+3) 
en los puntos: 1, 1/2, 2. 
SOLUCION: 


DEFINA LA FUNCION A DERIVAR EN LA LINEA 170 
DEL MODO SIGUIENTE : "170 DEF FN F(X)=....... 
A CONTINUACION PULSA «CONT > 

170 DEF FN F(X)=X"xX+SIN(X)XAEXP (XxX) -LOG(X+3) 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =7? 1 
El VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO= 1 ES D(Xx0)= 4.5060422 


FUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA x0 =>” 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO »xO= 


ar cn 


ES D(Xx0)= 2.1685925 


FUNTO End EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =? 2 
El VALOR APRO*IMADO DE LA DERIVADA EN EL PUNTO *XO= 2 ES D(XO)= 10.21646 


Tonater la derivada de la función: y = e* + cos x en los puntos 
1, -2, 0. 
SOLUCION: 


DEFINA LA FUNCION A DERIVAR EN LA LINEA 170 
DEL MODO SIGUIENTE : 170 DEF FN FíX)=....... 
A CONTINUACION PULSA <CONT> 

170 DEF FN F(X)=EXP (X)4+C0S (X) 


PUNTO EN EL QUE-*QUIERE ESTUDIAR LA DERIVADA XO =7? 1 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO= 1 ES D(X0)= 1.876792? 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =”? -2 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PENTO X0O=-2 ES D(X0O)= 1.0446367 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA XO =7? O 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO X0= O ES D(X0)= .99999493 


ECUACIONES DE LA TANGENTE Y LA NORMAL A 
UNA CURVA, CRECIMIENTO Y DECRECIMIENTO DE 
UNA FUNCION EN UN PUNTO 


introducción: 


Este programa permite obtener las ecuaciones de la recta tangente y 
normal a una curva en un punto. Además estudia, a partir del coeficiente an 
gular de la recta tangente, el crecimiento o decrecimiento de la función 
en el punto considerado. 

Es importante destacar que todo el cálculo es aproximado, y tener 
mucho cuidado en los puntos de discontinuidad de la función. 

La función se define en la linea 170 del siguiente modo: 

170 DEF FN F(X) = ...... 


listado del programa: 


10 REM 2949492429922 2222929949299 FONERA AAA AR 
20 REM 

30 REM ECUACIONES DE LA TANGENTE DA LA 

40 REM 

5O REM NORMAL A UNA CURVA E N U ON PUNTO 

60 REM 

O REM CRECIMIENTO Y DECRECIMIENTO 

80 REM 

90 REM 3440900202000 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 1 
20" 

120 PRINT "DEL MODO SIGUIENTE : 170 DEF FN F(X)=.......” 

130 FRINT "A CONTINUACION PULSE <CONT>" : 

140 STOP 

150 PRINT "PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XxO ="5 

150 INPUT X0O 

170-DEF FN F(X)= 

120 H=0 

190 FOR J=1 TO 8 

200 Hi=H 

210 X=X0+.5%J 

220 H=(FN F(X)- FN F(X0))/ (X-X0) 

230 NEXT J 
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240 D=2X*XH-H1 

250 YO=FN F(X0) 

259 REM - REDONDEO DEL VALOR DE LA DERIVADA - 
260 D1=INT(DX*1000+.5)/1000 


270 PRINT 

280 PRINT "LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO x0 ="3x0;"ES .” 
290 PRINT "Y ="3D13"X x +"3YO-D1XXx 

300 PRINT 

310 IF Di=0 THEN GOTO 350 

320 PRINT "LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO A0 ="3x03"ES 1" 
330 PRINT "Y ="3-1/D1;3"X X +"3YO+xX0/D1 

340 GOTO 390 

350 PRINT 

360 PRINT "LA ECUACION DE LA NORMAL A LA CURVA EN EL FUNTO 0 ="3x05"ES 2” 
370 PRINT "X ="3x0 

380 REM 

320 PRINT 


400 IF Di1>0 THEN 4530 

410 IF Di=0 THEN 470 

420 PRINT 

430 PRINT "LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO x0 ="532x0 
440 STOP 

450 PRINT "LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO ="3x0 
460 STOP 

470 PRINT "LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO x0 ="3x0 
420 END 


ejercicios resueltos: 


1oar1ar las ecuaciones de la tangente y la normal a la curva: 


Y=X - COS Xx<+Lnx en el punto e 1. Decir si la función es crecien 
te o decreciente en dicho punto. Analogo en los puntos x,=2, ly > LO. 
SOLUCION : 


DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 170 
DEL MODO SIGUIENTE": 170 DEF FN F(X)=....... 

A CONTINUACION PULSE <CONT> 

170 DEF FN F(X) = XXX-COS(X)+LOG(X) 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =? 1 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 1 ES : 
Y = 3,841 * X +-3.3813023 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES : 
Y =-.260394887 *X X + . 72004656 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL FUNTO xoO 


'" 
- 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL xO =7? 2 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL FUNTO XO = 2 ES : 
Y = 5.409 * X +-5.708706 
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LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 2 ES : 
Y =-,.18487706 * XxX + 5.4790481 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 2 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7? 10 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 10 ES : 
Y = 19.556 X X +-92.418343 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 10 ES : 
Y =-,O051135201 X X + 103.65301 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 10 


Zo maltar las ecuaciones de la tangente y la normal a la curva: 


y = e* - sen x, en los puntos: 1, O, -2. Estudiar el crecimiento de la 
función en dichos puntos. 


SQLUCION: 


DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 170 
DEL MODO SIGUIENTE : 170 DEF FN F(X)=.+.....+ 

A CONTINUACION PULSE <CONT> 

170 DEF FN F(X)=EXP (X)-SIN(X) 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =”7? 1 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 1 ES : 
Y = 2.178 * X +-.30118916 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES : 


Y =-,45913682 * X + 2.3359977 , 
LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 1 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7? O 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = O ES 
Y=0%*xX+1 


LA ECUACION DE LA NORMAL A LA CURVA EN» EL PUNTO XO = O ES : 
x= 0 


LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO XO = O 
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PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =?-2 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO =-2 ES : 
Y = ¿551 X XxX + 2.1466327 


LA ECUACION DE LA MORMAL A LA CURVA EN EL PUNTO XO =-2 ES : 
Y =-1.814882 X* Xx +-2.58513149 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO xO0 =-2 


3. Hallar las ecuaciones de la tangente y la normal a la curva: 
y = x? - 6x + 8, en los puntos: O, 1, 3. Estudiar el crecimiento de la 
función en dichos puntos. 
SOLUCION : 
DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 170 
DEL MODO SIGUIENTE : 170 DEF FN F(X)=....... 


A CONTINUACION PULSE <CONT> 
170 DEF FN F(X)=X*XX-ó*xx+8 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =? O 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = O ES : 
Y =-6 XX X + 2 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = O ES 
Y = 16666667 XX xXx + 8 


LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO XO0 = O 


FUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO 


ll 
“Y 
- 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL FUNTO XO = 1 ES 
Y =-9 X XxX + 7 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES : 
Y = 25 XA XxX + 2.75 


LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO XO 


1 
r— 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL X0 =7? 3 
LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 3 ES : 
Y=0% Xx +-1 

LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 3 ES : 


X= 3 


LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO XO0 = 3 


VALOR NUMERICO DE UN POLINOMIO Y SUS 
DERIVADAS EN UN PUNTO 


introducción: 


rie 


Este es un interesante programa que permite obtener el valor numé- 


o de un polinomio en un punto, asi como el valor numérico de sus deri- 


vadas en ese punto. 


El polinomio se introduce escribiendo los coeficientes C(J) del 


polinomio en la linea 160. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
109 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


II 
REM 
REM VALOR NUMERICO DE U ON POLINOMIO 
REM 
REM Y DE sus DERIVADAS EN UN PUNTO 
REM 
A 

PRINT 

REM - ENTRADA DE DATOS - 

PRINT "GRADO DEL POLINOMIO"; 

INPUT N 

DIM C(M+1),D(2XNM) 

FOR J=0 TO M 

PRINT "COEFICIENTE DE X"";N-J; 

INPUT C(J) 

NEXT J 

PRINT 

PRINT "PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS XO ="; 

INPUT Xx0O . 

PRINT 

FOR J=0 TO N 

D(J)=C(N-J) 

NEXT J 

F=1 

FOR J=1 TO N 

FOR I=1 TON 

L=N+J-1-1 

D(L)=D(L)+D(L+1)%XO 

NEXT 1 

D(L)=FXD(L) 

F=FXJ 
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330 NEXT J 
340 D(N)=FXDI(N) 
349 REM - SALIDA DE RESULTADOS - 


350 PRINT "EL FOLINOMIO EN ="3x03"ES ="5D(0) 

360 FOR J=1 TO N 

370 PRINT "LA DERIVADA DE ORDEN"3J;"EN X=";53X0;"ES ="5D(J) 
330 NEXT J 

390 PRINT 


400 PRINT "DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N"; 
410 INPUT CS$ 

420 IF C$="N" THEN GOTO 440 

430 GOTO 130 

440 END 


ejercicios resueltos: 


Disaraas el valor numérico del polinomio siguiente: 
x* - 2x> + 3x0 + 4x> - 5x7 E EN +7 
asi como el de sus derivadas en los puntos -1, 5, -0.5. 


SOLUCION : 


GRADO DEL POLINOMIO? é 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE Xx” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X* 


2? 
”- 


OrnNdWdbdaoa 


333 “vYYy 
1 
NyOogdAadnN er 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS  —X0 


EL POLINOMIO EN 'X=-1 ES =-2 


LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 


EN x=-1 ES =-2960 
EN X=-1 ES = 720 


LA DERIVADA DE ORDEN 1 EN X=-1 ES = O 
LA DERIVADA DE ORDEN 2 EN  X=-1 ES = 72 
LA DERIVADA DE ORDEN 3 EN X=-1 ES =-238 
LA DERIVADA DE ORDEN 4 EN X=-1 ES = 672 
S 
=] 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 
PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS X0 


EL POLINOMIO EN X= S ES = 11662 


LA DERIVADA DE ORDEN 1 EN X= 5 ES = 14256 
LA DERIVADA DE ORDEN 2 EN X= 5 ES = 14760 
LA DERIVADA DE ORDEN 3 EN = 5ES= 12384 
LA DERIVADA DE ORDEN 4 EN = 5 ES= 7872 
LA DERIVADA DE ORDEN S EN X= 5 ES = 3360 
LA DERIVADA DE ORDEN 6 EN X= 5 ES = 720 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 
PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS XO 


EL POLINOMIO EN X=-.5 ES = 2.515625 
LA DERIVADA DE ORDEN 1 EN =-.5 ES = 11.6875 
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EN  X=-.5 ES =-6.125 
EN  X=-.5 ES =-57 

EN X=-.5 ES = 282 
EN  X=-.5 ES =-600 
EN X=-.5 ES = 720 


LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 


005u4nN 
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Do taas el valor numérico del polinomio siguiente: 


A 


asi como el de sus derivadas en los puntos: -7, 4, 
SOLUCION: 


GRADO DEL POLINOMIO? < 
COEFICIENTE DE XxX” 3 ? 
COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 


O 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 


EL POLINOMIO EN -*X=-2 ES =-731 
LA DERIVADA DE ORDEN 1 EN - X=-7 ES = 308 
LA DERIVADA DE ORDEN 2 EN '-xXx=-7 ES =-Sé 
LA DERIVADA DE ORDEN 3 EN. X=-7 ES = 12 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 

PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 
EL POLINOMIO EN X= 4 ES = 116 
LA DERIVADA DE ORDEN 1 EN X= 4 ES = 88 


LA DERIVADA DE ORDEN 2 EN X= 439 ES 346 
LA DERIVADA DE ORDEN 3 EN. X= 4 ES = 12 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO SIN ?S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 


EL POLINOMIO EN.” X= 3 ES = 49 


LA DERIVADA DE ORDEN 1 EN X= 3 ES = 48 
LA DERIVADA DE ORDEN 2 EN X= 3 ES = 34 
LA DERIVADA DE ORDEN 3 EN. X= 23 ES = 12 


da 
xXO =?-7 
xXO =? 4 
XO =? 3 


e AA el valor numérico del polinomio siguiente: 


q? + 2x7 + 8x? + x3+ 2 


asi como el de sus derivadas en los puntos: -=1, o, 


SOLUCION: 


GRADO DEL POLINOMIO? 4 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 


Orndadasas 


3» 
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FUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS —x0 


EL POLINOMIO EN  *x=-1 ES = 4 
LA DERIVADA DE ORDEN 1 EN 


L 
il] 
1 
a 
m 
(0) 
| 
L 


LA DERIVADA DE ORDEN 2 EN  X=-1 ES =-< 
LA DERIVADA DE ORDEN 3 EN X=-1 ES 24 
LA DERIVADA DE ORDEN 4 EN X=-1 ES =-72 


DESEA CALCULAR LA DERIVADA EN OTRO FUNTO S/N9S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 40 


EL POLINOMIO EN x= 0 Ez = 2 

LA DERIVADA DE ORDEN 1 EN x= O ES 1 
LA DERIVADA DE ORDEN 2 EN x= 0 ES = ló 
LA DERIVADA DE CRDEN 3 EN X= O ES = 12 
LA DERIVADA DE ORDEN 94 EM. X= O ES =-22 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 0 


EL POLINOMIO EN X= 3 ES =-112 

LA DERIVADA DE ORDEN 1 EN X= 3 ES =-22l 
LA DERIVADA DE ORDEN 2 EN. X= 3 ES =-272 
LA DERIVADA DE ORDEN 3 EN x= 23 ES =-204 
LA DERIVADA DE ORDEN 4 EN X= 3 ES Ad 


APROXIMACION DE LA FUNCION Y = SEN (X) 


introducción: 


Este programa permite obtener una aproximación de la función 
y = sen XxX mediante desarrollo en serie. Al mismo tiempo calcula el va- 
lor del sen x con arreglo a la función de librería SIN(X) que posee el 


microordenador y por último calcula la diferencia entre las dos funciones. 


listado del programa: 


10 REM IRIARTE IMEI III IIA 
20 REM 


30 REM APROXIMACION DE LA FUNCION 

40 REM 

50 REM Y=SEN (X) POR DESARROLLO EN SERTE 

60 REM 

70 REM 2949020000922 020202020202002000202202202002220020202020090022090202020202002900090090909000000020 
100 PRINT 

110 PRINT " Xx serie: SIN(X) tfunc: SIN(X) DIFERENCIA" 


120 PRINT  "RRRRRRORRROROROSOOREAREORERORORRRRRRRRRARIORORIRIRIOIOIOIIIIIOIOIOIOOI IIA 
FOANANAAIAAA 

130 PRINT 

140 PI= 3.141592653589793 

150 xXO=1 

160 FOR X=0 TO 2*XPI STEP .1 

170 X1=ABS(1(X) 

180 X1=X1-2XPIXINT (xX1/(2*xPI)) 

190 IF X1>PI THEN XO=- 1 

200 IF X1i>PI THEN X1=X1-PI 

210 IF X1>PI/2 THEN X1=P1-X 

220 X2=X1XX1 

230 Y=XOXX1XY 

239 REM - COEFICIENTES DEL DESARROLLO DE LA SERIE SEN(X) - 
240 C(1)=1 


* 


250 C(2)=-.1666666666671334 

260 C(3)= .00833333333809067? 

270 C(4)=-.000198412715551283 
280 C(5)= .0000027557589750762 
290 C(6)=-.00000002507059876207 
300 C(7?)= .0000000001óé4105986683 


309 REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
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310 N=2 

320 Y=0 - 

330 FOR J=N TO 1 STEP -1 

340 Y=YXX2+C(J) 

350 NEXT J 

360 Y=XO0XxX1XY 

370 PRINT X,Y,SIN(X),Y-SIN(2%) 
380 NEXT 

390 END 


ejercicios resueltos: 


Le aprorínas la función y = sen x mediante desarrollo en serie entre 
O y 27, con un incremento de O, 1. 
SOLUCION : 


Xx serie: SIN(X) func:i SIN(X) DIFERENCIA 
FORO OOOO IAAF OI IO OOOO OI III FOIE AAA 


0.0 . 0000000000 . 0000000000 0 
1 . OPPEI34 166 .OPP8334166 -1.8189894E-12 
e . 1986693308 . 19326693308 -3.6379788E-12 
.3 . 2255202062 . 29255202067 -5.4569682E-12 
4 . 38994183923 . 38941839423 -2.910383E-11 
.5 . 97942559386 . 4794255386 -2.2759576E-12 
.6 ¿2646424734 ¿3646429734 2.0918378E-11 
"7 . 644217682872 .6442176272 4.9456524E-11 
.8 . 7173560909 . 21735360909 -2.7/284841E-11 
.9 . 7833269096 . 73833269096 2.273736SE-11 
1.0 . 8414709848 .8414709849 -5.9117156E-11 
1.1 . 8712073601 . 3912073602 -6.5483619E-11 
1.2 . 2320390860 . 2320390860 5.638867Z2E-11 
1.3 . PÉSISC1OSSO .?P63558128549 1.2278178E-10 
1.49 .9854497301 . 9854497299 1.3278623E-10 
1.5 . 9974949868 «9974949867 1.4370016E-10 
1.6 . PIPITIGOSS . PIRPIZIGOSL 2. 382?765E-10 
1.7? . 7716648104 «7716648102 2.1282176E-10 
1.8 . 9732476307 .7738476308 -6.2735134E-11 
1.9 . 92463000274 . 7463000873 1.5916157E-10 
2.0 . 7OP2974ZÓS . 9092974264 6.9121597E-11 
2.1 .BÓ6Ó32093662 .S632093661 1. 1550583E-10 
2.2 . 2084964032 . 8084964032 * 4.638423E-11 
2.3 . 7457052114 +. 7457052112 1.9736035E-10 
2.4 . 6734631797 . 67534631796 4.5474735E-11 
2.5 .57?84721431 ¿3984721425 2. 653972 45E-10 
2.6 .«S155013706 «S155013706 4.638423E-11 
2.7? . 4273798789 . 4273798786 2.5374?902E-10 
2.8 . 3349881487 . 33498814836 1.100948856E-10 
2.9 . 2392493276 . 2392493273 2.3833098ZE-10 
3.0 . 1411200063 «1411200062 1.0822987E-10 
3.1 .0415806606 . 0415806607 -7,0031092E-11 
3.2 -.0583741454 -.0583741455 1.1732482E-10 
3.3 -.1577456961 -.1577456961 -7,0031092E-11 
3.9 -.255594110491 -. 25594110492 1.0913936E-10 
3.5 -.3507832298 ==. 3507832297 -4,.0017767E-11 
3.6 -. 4425204454 -. 4425204455 1.09132936E-10 
3.7 -,.5298361429 -.5298361429 -1.8189894E-11 
3.8 -.611285738929 -.6118578930 1.1550583E-10 
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3.9 -=.6877661611 -.6877661610 -9.8225428E-11 
4.0 -. 7568024971 7". 7568024971 2.2737368E-11 
4.1 -.8182771127? -.8182771126 -4.5474735E-12 
4.2 -.28715757738 -.8715757739 1.0822987E-10 
4.3 -=.P161659379 -=.9161659379 -5.0022209E-11 
4.4 -.?516020748 -.9516020748 -5.4569682E-12 
9.5 =.P775301183 -=.9773301182 -1.1186785E-10 
4.6 -.?936910041 -.9936910040 -1.1186785E-10 
9.7 -.9999232580 =. PIP ZIZSIP -2.8921932E-10 
4.8 =. 7261646087? -.9961646086 -1.1368684E-10 
4.9 -.?224526120 -.9824526120 -7.1850081E-11 
5.0 -.9589242737 -.93589242735 -2.01907282E-10 
S.1 -.9258146809 -.92358146809 -1.596141E-11 

5.2 -.88345465490 -.8834546538 -1.8644641E-10 
S.3 -.e322674401 -.8322674400 -9.7315933E-11 
5.4 -=.2727644851 -.7727644849 -2.1645974E-10 
5.5 -=. 7055403228 -=.7055403226 -1.21287229E-10 
5.Ó -.63126663492 -=.6312666345 -2.6830094E-10 
S.? - 5506855391 ==. 35306855390 -=1.2551027E-10 
5.82 -. 4646021752 -. 4646021753 -3.610694E-10 

JS. 2 -=. 3738766608 -.37/38766607 -1.5188562E-10 
6.0 -=.2794154939 -=.27934154936 -3.8107828E-10 
6.1 -=. 1821624998 -=.1821624996 -2.1464075E-10 
6.2 0830893982 -:. 0830893978 -3.8835424E-10 
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APROXIMACION DE LA FUNCION Y = COS (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 
y = cos x mediante desarrollo en serie. Al mismo tiempo calcula el valor 
del cos x, con arreglo a la función de librería COS(X) que posee el micro 


ordenador, por último calcula la diferencia entre las dos funciones. 


listado del programa: 


10 REM IRRRRRRRRRRRRORORORORORORRORORARORORARORDEROROROORDARDORDOERRRDIRIO RAI III IA 
20 REM 


30 REM APROXIMACION DE LA FUNCION 

40 REM 

50 REM Y=C0S (Xx) POR DESARROLLO E N SERTE 
60 REM 


70 REM IRRADIA III III III III RIIIE 
100 PRINT 

110 PRINT ” Xx serie: COS(X) func: COS(X) DIFERENCIA" 
120 PRINT "ORIO ONO MAJOR IIS HIERRO III NRIIIOIIOIOIIIIIAARAR 
AAA 

130 PRINT 

140 PI= 3.141592653589793 

150 xO=1 

160 FOR X=0 TO PI STEP .1 

170 X1=ABS(X) 

180 X1=X1-2*PIXINT(X1/(2X*XPI)) 

190 IF X1>PI THEN XO=-1 

200 IF X1>PI THEN X1=X1-PI 

210 IF X1>PI/2 THEN XO=-1 

220 IF X1>PI/2 THEN X1=PI-Xx1 

230 X2=xX1XX1 

239 REM - COEFICIENTES DEL DESARROLLO DE LA SERIE COS(X) - 

240 C(1)=1 


250 C(2)=-.4999999999982 
260 C(3)= .094166666664651 
270 C(9)=-.0013828888805755 
2580 C(5)= .000024801428034 
290 C(4)=-.00000027542133249 
300 21(”?)= .,0000000020189405 


309 REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
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310 M=”" 
320 1=0 


230 FOR J=N TO 1 STEP -1 


390 W=YXX2+C(J) 
350 MEXT J 
360 Y=xX0XY 


370 PRINT X,Y,COS(X),Y-COS(X) 


380 NEXT »x 
390 END 


ejercicios resueltos 


Ll. la función y 


COS X 


Oo y TT, con un incremento igual a O, 1. 


SOLUCION: 


x serie: 


COS (x) 


tunc: 


COS (Xx) 


mediante desarrollo en serie, 


DIFERENCIA 


entre 


OOOO ROO ORO OCIO ORAR 


O, 1 


NN 2 (dy - oO 


OS 


ld Y) r0)0 


00 SS 


Ny o 
| 


PL EDI PDD AD e o bp e e 


(15 (14 Nr-O-c9 
| 


FJ Mr 


ld NM 


POxIO035< JO 
i 


(Al 


. OCOD0D00C 
. PIISDOF1LÓS 
. PEOOÉSOE 
23336909 
«P21060994 
.S7 75282362 
825335615 
. 7648421327 
. Ó76?706707 
«621509968 
540302306 
. ISI PÓ121 
3é62357754 
. 267498228 
16779671492 
-0-2-0237201 
«O2919P?3523 
¿1223494495 


6146237 
¿3045846105 
¿¡Sa3a50o11ia 
. 6656276022 
«¿327393716 
.»5S01143ó1l6 
. 28568887394 
904072143 
9422223341 
. P? 70758166 
. 229992997 
.F9I9P135150 


1.000000000 


. PISOOFLÓS 
. 7Z30066578 
. 233336959 
. 221060794 
. 7 7IBZ2IÓLZ 
¿+S23335615 
.7ó4a842187 
. 676706709 
. 621609763 
«3340302306 
.I535996121 
.JÓ2ID7 799 
. 2674952828 
1699267143 
. 070737201 
. 029199323 
«123244995 
«227202095 
«32328956 
«F+10196237 
. 5048346106 
¿Sessoliis 
. 666276022 
«¿32393716 
.301143617 
. 3568235875949 
. 204072143 
. 942222541 
. 7709358166 
. 9229992497 
.P9IPF1IS1S5O 


4.7293724E-11 
1.0004442E-10 
3.59470293E-11 
1.ó6370905E-11 
3.63729788E-11 
-9.094947E-13 
2.63753946E-11 
5.J3ó6018/E-11 
49.0017767E-11 
2. 4I556357E-11 
2. 72234341E-12 
-1.2732926E-11 
1.013223924E-11 
9,.0947947E-12 
-6.8212103E-11 
-7.65397555E-11 
1.5552359E-10 
3.1650416E-10 
S.4583007E-11 
2.5193003E-10 
5.8207661E-11 
2.1373125E-10 
7.548806E-11 
1.7226096E-10 
2.0008883E-11 
1.9354136E-10 
1.0732037E-10 
4.7293724E-11 
5.0022209E-11 
32.2764018E-11 
-1.0459189E-10 
4.7293724E-11 


APROXIMACION DE LA FUNCION Y = LN (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 
y = Ln Xx, mediante el desarrollo en serie. Al mismo tiempo calcula el valor 
del neperiano, con arreglo a la función de librería LOG(X) que poseen 
los microordenadores, por último calcula la diferencia entre las dos fun- 


ciones. 


listado del programa: 


10 PEN ORIO OOOO ESOO IOIO EEE AR AA RRA ER MAR EMMA A ARRE AA 
20 REM 


730 REM APROXIMACION DE LA FUNCION 

30 REM 

50 REM Y=LN (2%) POR DESARROLLO E N SERia 
60 REM 


PO REM RRA OO A ERA ERNREIERAR RARE AAR MAR AAA 
100 PRINT 

110 PRINT " ES seriez LN (x) funci LN (5) DIFERENCIA” 
120 PRINT "ARRANCAR RARA ARRE ERA A ARRRAMAAAAAA 
AAA 

130 PRINT 

140 E= 2. *182818228459043 

150 FOR X=0.5 TO 10 STEP .5 

160 XxXO=1 

170 xX1=-1 

180 X2=X 

19%0 1F X>=1 THEN GOTO 220 

200 X=1/X%X 

210 XO=-1 

220 X=EXX 

230 Xi=X1+1 

240 X=X/E 

250 IF X>E THEN GOTO 230 

260 x9=(X-1.6487?212.207)/(x+1.6487212707) 

270 XD=X9XX 

2792 REM - COEFICIENTES DEL DESARROLLO DE LA SERIE VY=LN (x) - 

280 C(1)=2 

290 C(2)=.66666672443 

300 C(3)=.3999895288 

310 C(4)=.286436047? 


320 
330 
340 
350 
360 
370 
379 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


ejercicios resueltos: 


entre 0.5 


INAH AAA A 


Cc(3)=.197959107 


C(6)=,6283533 
Cc(7)=-4.54692 


Cc (8)=283.117 
C(9)=-86. 42 
Cc110)=106.1 
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REM - SUMACION DE LOS TERMINOS DE LA SERIE - 


N=10 
Y=0 


FOR J=N TO 1 STEP -1 


Y=YXX5+C(J) 
NEXT J 


Y=X0X (YXX4I+X14+,.5) 


A=X2 


PRINT X,Y,LOG(%x), Y-LOG(2X) 


NEXT X 
END 


¡ AAA la función: 
y 10, 
SOLUCION 


ww 


S. 


b 
n€n200/120M0d0(M10d0oNmdg0orm 


D05 Yo yoo 


mo 


o 00 


rs 
o 


con un incremento 


1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 


serie: LN (Xx 
INACIO IRONIA FEMENINA AAA 


. 69314718381 
. 000000000 
- 405465108 
693197131 
.«P16290732 
+. 0928612287? 
. 2527627962 
. 386294361 
. 5094077397 
. 609437912 
. 704748092 
. 91739469 
¿8712802127 
. 24SP1O1LAO 
.D14POZ3OZO 
.0794415491 
. 1340066163 
19722435772 
«251291798 
. 302585093 


y = Ln xXx 


igual a .5. 


func:i LN (X) 


6931471831 
0. 000000000 
. I05465108 
.6Ó9231471831 
«216279073 
1.098612229 
1.252762969 
1.386294361 
1. 5094077397 
1.609437912 
1.704743092 
1.791759469 
1.871802177 
1.945910149 
2.014903021 
2.079441592 
2.140066163 
2.1972245277 
2.251291798 
2. 302595093 


DIFERENCIA 


-=1.72203299E-11 
1.0913936E-11 
-1.5946141E-11 
-9.276546E-11 
=6.002665E-11 
e) 
-2.3223064E-10 
-2.328306%4E-10 
-2.3283064E-10 
-2.3283069E-10 
-2. 322830649E-10 
-2.3283069E-10 
-2.3223069E-10 
-2.328306%4E-10 
-2.3283064E-10 
-2.3283064E-10 
-2.32283064E-10 
-2.328306%E-10 
0) 
-2.328306%4E-10 
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mediante desarrollo en serie, 


APROXIMACION DE LA FUNCION Y = EXP (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 
y = a mediante desarrollo en serie. Al mismo tiempo calcula el valor 
de la función exponencial, con arreglo a la función de librería EXP(X) 
que poseen los microordenadores, por último calcula la diferencia entre 
las dos funciones. 


listado del programa: 


10 REM 2214020222009 2200292920009 ROO O OOO OOOO OIR ER ERA A ANA 
20 REM 


30 REM APROXIMACIONRN DE LA FUNCION 

40 REI 

50 REM Y=EXP (XxX) POR DESARROLLO EN SERIE 
60 REM 


PO REM RAROS III III III RA III OOOO EX EA AAA 
100 PRINT 

110 PRINT " X serie: EXP (5%) funci EXP(X DIFERENCIA” 
120 PRINT "RRA ROO ORIO OOOO OOO IIA 
AAA AAA 

130 PRINT 

140 FOR X=-5 TOS STEP 5 

150 xO=1 

160 X1=Xx 

170 IF X*0 THEN XC=-1 

130 A=AES (X) 

190 XI3=INT (2) 

200 X=X-X3 

209 REM - COEFICIENTES DEL DESARROLLO DE Y=EXP (Xx) - 

210 C(1)=1 

220 C(2)=. 99999997668 

230 C(3)=.499999295173 

240 C(4)=.16666704242 

250 C(5)=.041666435027 

260 C(6)=.00832672ó635 

270 C(7?)=.001940836136 

280 C(8)=.00017358267 

2920 C(9)=.00003931683 

300 X2=X 


J.R.VIZMANOS 143 


309 REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
310 N=9 

320 Y=0 

330 FOR J=N TO 1 STEP -1 

390 Y=YXX2+C:1J) 

350 NEXT J 

360 FOR K=1 TO X3 

370 E=2. 71823128238459045 

330 Y=YXE 

390 NEXT K 

400 IF XO0<%0 THEN Y=1/Y 

410 x*=X1 

420 PRINT X,Y, EXP(X), Y-EXP (X) 
430 NEXT X 

440 END 


ejercicios resueltos: 


¡e la función y = e* mediante desarrollo en serie, entre 
-5 y 5, con un incremento de 0.5. 
SOLUCION: 
Xx serie: EXP (X) func: EXF(X) DIFERENCIA 


IOMA ARA 


-5,0 . 006737? . 0067379 - 2.7 2348941E-12 
9,5 «0111090 «0111090 1.212922894E-12 
-4,0 «01331536 «01853156 -5.4569682E-12 
=3.9 .+03019749 - 0301974 7.2759576E-12 
3.0 .0497871 .0497871 =9,50949947E- 42 
-2.3 . 0820850 . 0320250 2.72249841E-11 
=2. 0 «1353353 «133533593 -2.0918378E-11 
—É. 3 «2231302 «2231302 8.0945023E-11 
1,0 . 36787949 . 3678794 -6.2/351339E-11 
>. : ÉÓ0ÓSIO? . 6065307 1.709385E-10 
.0 1.0000000 1.0000000 4.0017767E-11 
.3 1.64287213 1.6487213 -4,6566129E-10 
1.0 2.7?182218 2.?71232818 4.6566129E-10 
1,5 4.3816891 4. 481632791 -1.6293145E-09 
2.0 ?.3890561 7.30879056l 1.1641532E-09 
2,5 12.1824949 12.1824940 -3.9581209E-092 
3.0 20.0255169 20.0855369 3. 72532903E-09 
DS 323.1159520 33.1154520 -7.6834112E-09 
4.0 54.5931501 54.55315300 1.5832484E-083 
9.5 90.0171313 90.0171313 -9.0803951E-09 
5.0 428,4131592 148.4131591 6. 3562766E-08 


REGLA DE SIMPSON (FUNCION CONOCIDA) 


introducción: 


Este programa permite calcular integrales definidas mediante la re- 
gla de Simpson. Este procedimiento de cálculo númerico obtiene una aproxXi- 
mación al verdadero valor de la integral. Para que la aproximación sea me- 
jor basta con hacer más fina la partición del intervalo, es decir, aumen- 
tar el número de intervalos (siempre pares). 

La función a integrar se introduce en la linea 170 del siguiente mo 
do: 170 DEF FN F(X) = ...¡.. 


listado del programa: 


10 REM RRA RORRORRORRROOORROOROARROROORNROOROROROO OREIRO OOOO OOOO EA EX AR 
20 REM 


30 REM INTEGRACION NUMERICA 
40 REM 

50 REM REGLA DE SIMPSON 

60 REM 


70 REM 294449492921 2022221202292222228208202020920020202020009000009N00OOOOIO OOOO ER AAA AR 
100 PRINT 

109 REM -—- ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 120" 
120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) S ....... . 

130 PRINT "A CONTINUACION PULSAR <¿CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR"; 
160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (FARES)"; 

190 INPUT N 

200 IF N/2%>INT(N/2) GOTO 200 

210 H=(E-A)/(2%XN) 

220 Ni=2XN-1 

230 N2=2X(N-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO Ni STEP 2 

270 X=A+HXJ 

280 SI=SI4+FNF (X) 


J.R.VIZMANOS 145 


290 NEXT J 

299 REM - SUMA DE LOS PUNTOS PARES - 
300 FOR J=2 TO N2 STEP 2 

310 X=A+HXJ 

320 SP=SP+FNF (X) 

330 NEXT J 

339 REM - SALIDA DEL RESULTADO - 

340 PRINT 

350 PRINT 

360 IS=HX(FNF (A) +4XSI+2%SP+FNF(B))/3 
370 PRINT "LA INTEGRAL PEDIDA ES =";3IS; 


380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
390 END 


ejercicios resueltos: 


Lo As 


1 e Calcular — EZ E 


O 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 120 

DEL SIGUIENTE MODO: 170 DEF FN F(X) = c...oo.. 

A CONTINUACION PULSAR <¿CONT> 

170 DEF FN F(X) =1/(1+X) 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1.2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 10 


LA INTEGRAL PEDIDA ES = .782845777 (MEDIANTE LA REGLA DE SIMPSON) 


AAA el valor de 
SOLUCION : 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = 1/SQOR(1+Y*. 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 3 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 50 


LA INTEGRAL PEDIDA ES = 2 (MEDIANTE LA REGLA DE SIMPSON) 


3. Calcular el valor de 


SOLUCION : 


146 INTEGRACION NUMERICA 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1270 


DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR ¿CONT > 

170 DEF FN F(X) = X/SOQR(X*XX-15) 

INTRODUZCA LCS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? 4 3 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES) 30 


LA INTEGRAL PEDIDA ES = 6.0002?” (MEDIANTE LA REGLA DE SIMPSON) 


10) 3 
4. Calcular el valor de 


SOLUCION :: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 

DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..o..ooo 

A CINTINUACION PULSAR <CONT > 

170 DEF FN F(X) = X93/ (XXXIA+F]1) 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR?-.S5 0 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? S0 


LA INTEGRAL PEDIDA ES =-,.020400212 (MEDIANTE LA REGLA DE SITFPFSON) 


REGLA DE SIMPSON (FUNCION DESCONOCIDA) 


introducción: 


Este programa sirve para calcular el valor aproximado de una inte- 
gral de una función desconocida, sabiendo el valor que toma la función en 
cada uno de los puntos de la partición del intervalo. El cálculo se reali 


za mediante la regla de integración numérica de Simpson. 


listado del programa: 


10 REM RRRRRRRRORRARRORORRORORARRROROORORORORORARARROARROODRARRORRORRRROREAROROROCORACIONOALAR 


20 REM 

ZO REM INTEGRACION NUmMERICA 

30 REM 

50 REM REGLA DE SIMPSON (FUNCION DESCONOCIDA) 
60 REM 


20 REM IRSA O OIR III EIN TRINI III IRRIINAAAAR 
110 PRINT "INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR"; 
120 INPUT A,B 

130 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)";5 

140 INPUT mM 

150 N=M/2 

160 PRINT "VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR"; 
170 INPUT Yi, Y2 

180 H=(E-A)/ (2%N) 

190 N1=2XN-1 

200 N2=2X*X (N-1) 


210 SI=0 

220 SP=0 

227 REM - SUMA DE LOS PUNTOS IMPARES - 

230 FOR J=1 TO N1í STEF 2 

290 PRINT "VALOR DE F(X) PARA X = "3A+HXJ;5 


250 INPUT Y 

260 SI=SI+Y 

270 NEXT J 

279 REM - SUMA DE LOS PUNTOS PARES - 

230 FOR J=2 TO N2 STEP 2 

270 PRINT "VALOR DE F(X) PARA X = "jA+HXJ; 
300 INPUT Y : 

310 SP=SP+Y 

320 NEXT J 


148 , INTEGRACION NUMERICA 


329 REM -SALIDA DEL RESULTADO - 


330 PRINT 

3940 PRINT 

350 IS=HX(Y1+49XS5I+2X*XSP+Y2)/3 

360 PRINT "LA INTEGRAL PEDIDA ES ="3183; 
3720 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
3280 END 


ejercicios resueltos: 


loiazzar la integral de una función desconocida entre 1 y 3, sabiendo 


los siguientes valores de x y de f(x). 


SOLUCION: 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR? 1 3 
INTRODLIZCA EL NUMERO DE INTERVALOS (PARES)? 8 
VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1.2 2.9 


VALOR DE F(X) PARA X= 1.25 2? 1.6 
VALOR DE F(X) PARA X= 1.75 ? 1.9 
VALOR DE F(X) PARA X= 2.23 7? 2.3 
VALOR DE F(X) PARA X= 2.75 ? 2.8 
VALOR DE F(X) PARA X= 1.5 2 1.7 
VALOR DE F(X) PARA X = 2527? 2 

VALOR DE F(X) PARA X= 2.5 ? 2.6 


LA INTEGRAL PEDIDA ES = 434.325 (MEDIANTE LA REGLA DE SIMPSON) 


Lo Hallar la integral de una función desconocida entre 4 y 5.5, sabien 


do los siguientes valores de x y de f(x). 


SOLUCION : 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR? 4 S.5 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 6 

VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1 1 
VALOR DE F(X) PARA X= 39.25 ? 1.3 

VALOR DE F(X) PARA X= 4.735 2? 1.7 

VALOR DE F(X) PARA X= 5.29 ? 1.3 

VALOR DE F(X) FARA X= 4.5? 1.5 

VALOR DE F(X) PARA X= 5?u1.5 
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LA INTEGRAL PEDIDA ES 


2.1 (MEDIANTE LA REGLA DE SIMPSON) 


3. Hallar la integral de una función 


desconocida entre 1 y 1.3 sabiendo los 


valores de x y de f(x) siguientes: 


SOLUCION 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR 
NUMERO DE INTERVALOS (PARES)? 6 


INTRODUZCA EL 
VALORES DE LA 


VALOR 
VALOR 
VALOR 
VALOR 
VALOR 


DE 
DE 
DE 
DE 
DE 


F(X) 
F(X) 
OS 

F(xX) 
F(X) 


FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1 


PARA 
PARA 
PARA 
PARA 
PARA 


LA INTEGRAL PEDIDA 


; 
X 


Xx 


m 
109) 


J 


1.05 ? 1.0247 
1.15 ? 1.07238 
1.235 ? 1.11803 
1.1 ? 1.04881 
1.2 ? 1.095449 


Y SUPERIOR? 1 


des 
1.02470 
1.04881 


1.07238 
1.09544 
1.11803 
1.14017 


1.3 


1.14017 


¿32148517 (MEDIANTE LA REGLA DE SIMPSON) 


REGLA DEL TRAPECIO 


introducción: 


Este programa permite calcular integrales definidas mediante la re- 
gla de los trapecios. Este procedimiento de cálculo numérico, obtiene una 
aproximación al verdadero valor de la integral. Cuanto más fina sea la par 
tición del intervalo, mejor será la aproximación. Para hacer más fina la 
partición del intervalo basta con aumentar el número de intervalos en el 
que subdividimos el intervalo inicial. 

La función a integrar se define en la linea 170 del siguiente modo: 

170 DEF PN P(X) = ¿ousicuo 


listado del programa: 


10 REM AIROSO ER OO RARA AAN AAA RRA RARA ERA RX XX AAA ANA 
20 REM 


30 REM TINTEGRACIOG NUMERICA 

40 REM 

50 REM REGLA DE Ss DE TRAFECIOOS 
60 REM 


PO REM IRRRIORIOOOSOIOOOOIO OOOO A OIR RRA AAA X 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1-0" 

120 PRINT "DEL SIGUIENTE MODGC: 170 DEF FN F(X) = .u....1 eS 

130 PRINT "A CONTINUACION PULSAR ¿CONT>” 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUFERIOR”; 
16C INPUT A,E 

170 DEF FN F(xX)= : 

130 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS"; 

1920 INPUT N 

200 S5=0 

210 H=(B-A)/N 

220 Ni=N-1 

230 FOR J=1 TO Ni 

240 S=S+FN F(A+JXH) 

250 NEXT J 

259 REM - SALIDA DEL RESULTADO - 

260 PRINT 
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270 
280 
290 
300 
310 


PRINT 
IT=HX(S+(FN F(A)+FN F(B))/2) 
PRINT "LA INTEGRAL PEDIDA ES ="317T; 


PRINT "(MEDIANTE LA REGLA DEL TRAPECIO)" 
END 


ejercicios resueltos: 


Liers: el valor de la integral: cos, E 2) dx 
o x +d 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = COS(X-1)/(X"2+1) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1 
INTRODUZCA EL NUMERO DE INTERVALOS ? 100 
LA INTEGRAL PEDIDA ES = .63975904 (MEDIANTE LA REGLA DEL TRAPECIO) 


2. Calcular el valor de la integral: 
SOLUCION : 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 120 


DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = ASN(X) 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1 

INTRODUZCA EL NUMERO DE INTERVALOS ? 60 

LA INTEGRAL PEDIDA ES = .57140586 (MEDIANTE LA REGLA DEL TRAPECIO) 
E e l e 2 

e Calcular el valor de la integral: (x” + 3x 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1270 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ...0.... 

A CONTINUACION PULSAR <CONT> 

170. DEF FN F(X) = X*34+3X%X"*2+LOG(Xx) 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR”? 1 


INTRODUZCA EL NUMERO DE INTERVALOS ? 100 


arc sen x dx 


+ Ln x )dx 


1532 INTEGRACION NUMERICA 


LA INTEGRAL PEDIDA ES = 397.297015 (MEDIANTE LA REGLA DEL TRAFPECIU) 


4, Calcular el valor de la integral: Ln (sen x) dx 


«5 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 

DEL SIGUIENTE MODO: 1,0 DEF FN Fix) 2 ¿oo . oso 

A CONTINUACION PULSAR ¿CONT: 

170 DEF FN F(x) = LOG(SIN(3)) 

INTRODUZCA LOS LIMITES DE INTEGRACICN: INFERIOR, UFERICR” 
INTRODUZCA EL MUMERO DE INTERVALOS 7 100 


cn 


LA INTEGRAL FEDIDA E 


107) 


=- ¿20316303 (MEDIANTE LA REGLA Dei. Tráricic: 


y = Ln(sen x) 


AREA ENCERRADA POR UNA CURVA EN CARTESIANAS 


introducción: 


Este programa permite calcular el area encerrada por una curva de 
la forma y = f(x), el eje x, y las rectas x = a, X = b. El cálculo del area 
se realiza por dos procedimientos: regla de Simpson y regla de los trape - 
cios. 
La función a integrar se define en la linea 170 del siguiente modo: 
170 DEF EN TOA) * .sissañnas 


listado del programa: 


10 REM ISR III OOOO ORAR AAA ANARAR 
20 REM 

30 REM AREA ENCERRADA POR UNA CURVA 
40 REM 

50 REM DADA E N F.CARTESIANA Y=F (X) 

60 REM 

70 REM METODOS: SIMPSON Y TRAPECIOS 

80 REM 

90 REM FORROS AAA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 120" 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ¿.o.....” 

130 PRINT "A CONTINUACION FULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR”; 

160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"5 

190 INPUT N 

200 IF N/2<>INT(N/2) GOTO 200 

210 H=(B-A)/(2%XN) 

220 N1i=2%N-1 

230 N2=2X*(N-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO N1 STEP 2 

270 X=A+HXJ 
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280 SI=SI4+FNF (X) 

290 NEXT J 

2929 REM - SUMA DE LOS PUNTOS PARES - 

300 FOR J=2 TO N2 STEP 2 

310 X=A+HXJ 

320 SP=SP+FNF (X) 

330 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

340 PRINT 

350 PRINT 

360 IS=HX(FNF (A) +4XSI+2%SP+FNF(B))/3 

370 PRINT "LA INTEGRAL PEDIDA ES ="3I18S; 
380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
390 PRINT 

400 IT=HX(SI+SP+(FNF(A)+FNF(B))/2) 

410 PRINT "LA INTEGRAL PEDIDA ES ="3I1T; 
420 PRINT "(MEDIANTE LA REGLA DE LOS TRAFECIOS)" 
430 END 


ejercicios resueltos: 


Lic el area encerrada por la curva f(x) = == , el eje x y 
las rectas: x= O y x= 1.2. 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = 1/(1+X) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1.2 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES 


. 72845736 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES .782847224 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


Arts el area encerrada por la curva f(x) = a el eje x 
y las rectas: x=0 y x= 3. y + 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = 1/S50R(1+X) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 3 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 
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LA INTEGRAL PEDIDA ES 


2 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


2.0000228 (MEDIANTE LA REGLA DE LOS TRAFPECIOS) 


3. Hallar el area del recinto encerrado por la curva y = 


x* - 15 
el eje Xx, y las rectas: x = 4 y x= 8. 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1270 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ......oo 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = X/SQR(XXX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? 4 S 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES = 6.000003 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 6.0004978 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


AREA ENCERRADA POR UNA CURVA EN POLARES 


introducción: 


Este programa permite calcular el area encerrada por una curva dada 
en coordenadas polares de la forma: r = r(w) y las semirrectas w = Wy Y 
W= w>- El cálculo del area se realiza por dos procedimientos: regla de 
Simpson y regla de los trapecios. 
La función a integrar se define en la linea 170 del siguiente modo: 
170 DEF FN R(W) = .o..o. 


listado del programa: 


10 REM IRRESTRICTO OOOO IOMA 
20 REM 


30 REM AREA ENCERRADA POR UNA CURVA 
40 REM 

SO REM DADA -E ON F. POLAR R=R (W) 

60 REM 

70 REM METODOS: SIMPSON Y TRAPECIOSCS 

80 REM 


90 REM IRRRRRRRORRORROROOIRORORRIORIRRIOROIORRORORORORIRIOIRIOIORIRISOOOIOIOIOIOIOIIOIOIOIOIIIOIIIOOIOOIIII E 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170” 


120 PRINT "DEL SIGUIENTE MODO: 170 DEF FM R(W) = ..ouoo..” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)":; 
160 INPUT W1.W2 

170 DEF FN RW) e arnocncrsa” 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
190 INPUT MN $ 

200 IF N/2<>INT(N/2) GOTO 200 

210 H=(W2-W1)/(ZXN) 

220 N1i=2X%N-1 

230 M2=2X*(M-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO N1 STEP 2 

270 W=W1+HXJ 
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2320 SI=SI+(FNR(W)72)/2 

290 NEXT J , 

299 REM - SUMA DE LOS PUNTOS PARES - 

300 FOR J=2 TO N2 STEP 2 

310 W=W1+HXJ 

320 SP=SP+ (FNR (W)2)/2 

330 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

340 PRINT 

350 PRINT 

360 IS=HX(FNR (W1)+4%SI+2%SP+FNR (W2))/3 
370 PRINT "LA INTEGRAL PEDIDA ES ="318; 
380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
390 PRINT 

400 IT=HX(SI+SP+ (FNR (W1)+FNR(W2))/2) 

410 PRINT "LA INTEGRAL PEDIDA ES ="317T; 
420 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
430 END 


ejercicios resueltos: 


1.nazar el área encerrada por la cardioide de ecuación: r = 1l+cos w 
SOLUCION: 


El área pedida será igual al doble del área entre O y T. Por tanto 
calculemos esta última. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN R W) = 
A CONTINUACION PULSAR <CONT> 

170 DEF FN R(W) = 1+C0S(W) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)? O 3.1415927 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA. ES = 2.3561945 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.3561945 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 
El área encerrada será: 4.71238 


Le Hallar el área encerrada por la lemniscata de Bernouilli de ecua- 
ción: y? = 9 COS 2 w 
SOLUCION: 
El área pedida será igual a 4 veces el area encerrada entre O y T/4. 


Por tanto calculemos esta última. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN RW) = .c..o.... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN R(W) = 3XSQR(COS(2XW)) 
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LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)”? O «278593 70i 
INTRODUZCA EL MUMERO DE INTERVALOS (FARES)? 640 


LA INTEGRAL PEDIDA ES = 2.246729828 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.245062ó (MEDIANTE LA REGLA DE LOS TRAFECIOS) 
El área encerrada será: 4(2.2467298)= 8.96.. 


3. Hallar el área encerrada por la rosa de tres pétalos de ecuación: 
r= 2cCcOos 3 w 
SOLUCION : 
El área pedida será igual a 6 veces el área encerrada entre O y T/ó6. 


Por tanto, calculemos esta última. 

DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 12 

DEL SIGUIENTE MODO: 170 DEF EN Fe: WU) = ..coocan 

A CONTINUACION PULSAR “¿COQNT> 

170 DEF FNR(W) =- 2X*C0S(3Xw) 

LIMITES DE INTEGRACION: INFERIOR, SUEERIOR (EN RADIANEZ)? O "32337839 
INTRODUZCA EL NUMERO DE INTERVALOS (FARES)7 340 


LA INTEGRAL PEDIDA ES = ¿5235728728 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = .S52359278 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


El área encerrada será: 6(.52359878)=3.12... 


AREA ENCERRADA POR UNA CURVA 
EN PARAMETRICAS 


introducción: 


en 


t=t 


Este programa permite calcular el area encerrada por una curva dada 
forma paramétrica: xXx = X(t), y = y(t) y las semirrectas t = ts y 


2* El cálculo del área se realiza por dos procedimientos : regla de 


Simpson y regla de los trapecios. 


En la linea 210 se define la función y = y(t) del siguiente modo: 
ZO DEF EN YT) = .oo..re 


y en la linea 220 se define la derivada de la función x = x(t) del si- 
guiente modo: 220 DEF FN D(T) = ....... 


listado del programa: 


REM RRA OOOO OOOO 0000 
REM 

REN AREA ENCERRADA FOR UNA CURVA 

REM 

REM DADA E N F. FARAMETRICA AA(T)I5 Y=Y (Y) 

REM . 

REN METODOS : SIMFSOMN Y TRAPECIOS 

REM 

PREM RRE 
PRINT 

REM - ENTRADA DE DATOS - 

PRINT "DEFINA LA FUNCION QUE DESEA INTECRAR EN LA LINEA 210" 

PRINT "DEL SIGUIENTE MOD: 210 DEF FN Y(T) S ¿oo o...” 

PRINT "A CONTINUACION PULSAR <¿CONT>" 


STOP 

PRINT "DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220" 
PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(T) S ,...o.. a 

PRINT "A CONTINUACION PULSAR <CONT>" 

STOP 


PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 
INPUT T1,T2 - 

DEF FN Y(T)= 

DEF FN D(T)= 

PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)”;5 
INPUT N 


160 INTEGRACION NUMERICA 


250 IF N/2<>INT(N/2) GOTO 250 
260 H=(T2-T1)/(2%N) 

270 Ni=2%N-1 

280 N2=2X (N-1) 

290 SI=0 

300 SP=0 

310 FOR J=1 TO Ni STEP 2 

320 T=T1+HXJ 

330 SI=SI4+FNY(T)XAFND(T) 

340 NEXT J 

350 FOR J=2 TO N2 STEP 2 

360 T=T1+HXJ 

370 SP=SP+FNY(T)AFND(T) 

380 NEXT J 

339 REM - SALIDA DE RESULTADOS - 
390 PRINT 

400 PRINT 

410 Yi=FNY(T1)XFND(T1) 

420 Y2=FNY(T2)XFND(T2) 

4930 IS =HX(Y1+9%XSI+2%SP+Y2)/3 


440 PRINT "EL AREA PEDIDA ES = "jIS 3 "UNIDADES CUADRADAS"; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 

460 PRINT 

470 IT=HX(SI+SP+ (Y1+Y2)/2) 

480 PRINT "EL AREA PEDIDA ES = "IT. 3 "UNIDADES CUADRADAS"; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 

500 END 


ejercicios resueltos: 


lotaliar el área encerrada por la curva: ( x(t) 
y (t) 


3 + cos t 


4 sent 
SOLUCION: 


El área pedida es 4 veces el area desde O a 1/2, y además como la función 
es negativa resulta: Area pedida = -4 Area desde O a T/2. 
Calculemos esta última: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO 210 DEF FN Y(T) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN Y(T) = 4XSIN(T) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) = ...o.oo.. 


A CONTINUACION PULSAR <CONT> 
220 DEF FN D(T)=-SIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 1.57079 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 640 


EL AREA PEDIDA ES = -3.1415673 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 


-3.1415673 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRAPE 
CIOS) á 


El área encerrada por la curva será: 47. 
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3 cos t 
2 sen t 


Xx 


y el area encerrada por la elipse de ecuación: y 


SOLUCION: 


El área pedida es en valor absoluto igual a 4 veces el área encerrada en 


el primer cuadrante, desde t=0 hasta t= 1/2. Calculemos esta cuarta 
parte. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN Y(T) = 
A CONTINUACION PULSAR <CONT> 

210 DEF FN Y(T) = 2XSIN(T) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) 


A CONTINUACION PULSAR <CONT> 
220 DEF FN D(T) = -3XSIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 1.57079%63 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 80 


EL AREA PEDIDA ES = -4.7123388 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 
EL AREA PEDIDA ES = -4.7123888 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRAPE 
cis 


El área encerrada por la curva será: 4.(4.7123888)= 18.84.. 


3. Hallar el área encerrada por el arco de cicloide de ecuación: 
x(t) 
y (t) 


t - sen t 
1 - cos t 


SOLUCION: 


Un arco completo de cicloide se describe al variar t desde t = O hasta 
t= 27m. Por tanto el área será: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN Y(T) = 
A CONTINUACION PULSAR <CONT> 

210 DEF FN Y(T) = 1-COS(T) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) = 


A CONTINUACION PULSAR <CONT > 
220 DEF FN D(T) =1-COS(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 6.28318 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 
EL AREA PEDIDA ES = 9.424778 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES = 9.424778 UNIDADES CUADRÁDAS(MEDIANTE LA REGLA DE LOS TRAPE, 
cios) 


LONGITUD DE UN ARCO DE CURVA DADA 
EN CARTESIANAS 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
de la forma y = f(x) desde x = a hasta x= b. El cálculo de la longi- 
tud de la curva se realiza por dos procedimientos: regla de Simpson y re- 
gla de los trapecios. 

Para poder ejecutar el programa,es preciso definir la función en la 
linea 21o del siguiente modo: 210 DEF FN F(X) = ...+.+.. 

Y también, definir en la linea 220 la derivada de la función y = f(x) 
respecto de x, del siguiente modo: 


220 DEF FN D(X) = ...... 


listado del programa: 


10 REM RRA 
20 REM 


30 REM LONGITUD DE UN ARCO DE CURVA 
40 REM 

50 REM DADA E N F. CARTESIANA Y=F(X) 

60 REM 

70 REM METODOS: SIMPSON Y TRAPECIOS 

280 REM 


90 REM RR 0009209009020 OOOO OI OTRA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210" 
120 PRINT "DEL SIGUIENTE MODO: 240 DEF FN FUX) O usa at 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220" 

160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(X) = c......” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

180 STOP 

120 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 

200 INPUT A,B 

210 DEF FN F(X) = 

220 DEF FN D(X) = 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 

240 INPUT N 


250 IF N/2<>INT(N/2) GOTO 250 
260 H=(E-A)/(2XN) 

270 N1=2XN-1 

230 N2=2%*X (N-1) 

2720 SI=0 

300 SP=0 
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309 REM - SUMA DE LOS PUNTOS IMPARES - 


310 FOR J=1 TO N1 STEP 2 
320 X=A+HXJ 

330 SI=SI+SOR(Í+FN D(X)*2) 
340 NEXT J 


349 REM - SUMA DE LOS PUNTOS PARES - 


350 FOR J=2 TO N2 STEP 2 

360 X=A+HXJ 

370 SP=SP+SQR(1+FN D(X)2) 

320 NEXT J 

389 REM - SALIDA DE RESULTADOS - 
390 PRINT 

400 PRINT 

410 Y1=SQR(1+FN'D(A)72) 

420 Y2=SQR(1+FN D(B)”72) 

4930 IS=HX(Y1+9XSI+2XSP+Y2)/3 

440 PRINT "LA INTEGRAL PEDIDA ES 


="318; 


450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 


460 PRINT 
470 IT=HX(SI4+SP+ (114+Y2)/2) 
430 PRINT "LA INTEGRAL PEDIDA ES 


="5 17; 


490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 


500 END á 


ejercicios resueltos: 


a la longitud de un 
3 (eX/3 —x/3 


2 
SOLUCION :: 


+ ) desde x 


arco de. catenaria de ecuación: 


= 0 hasta x = 3. 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 


DEL SIGUIENTE MODO: 
A CONTINUACION PULSAR <CONT> 


210 DEF FN F(X) = 


210 DEF FN F(X) = 3X(EXP(X/3)+EXP (-X/3))/2 


DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220 


DEL SIGUIENTE MODO: 220 DEF EN D(X) S emma 
A CONTINUACION PULSAR <CONT> Y 
220 DEF FN D(X) = (EXP (X/3)-EXP (-X/3))/2 

| 

| 
LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 3 | 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 

0 


LA INTEGRAL PEDIDA ES 


3.5256036 


LA INTEGRAL PEDIDA ES 


3.5256495 


e 


(MEDIANTE LA REGLA DE SIMPSON) 


(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


163 
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Zo Hallar la longitud de un arco de la curva de ecuación: y = Ln x 
entre x = 1 y x= 3. 


SOLUCION :: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = 2. ..... 

A CONTINUACION PULSAR <CONT > 

210 DEF FN F(X) = LOG(X) 


DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220 


DEL SIGUIENTE MODO: 220 DEF FN D(X) = ....... 
A CONTINUACION PULSAR ¿CONT > 
220 DEF FN D(x) = 1/2X 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? 1 3 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES 2.3019875 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.3020225 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


3. Hallar la longitud de un arco de la curva de ecuación: y = e 


entre x = -2 hasta x= m2. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = .....oo 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(X) = EXP (X/2) 


DEFINA LA DERIVADA DE F(X) RESFECTO DE X EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = ....... 
A CONTINUACION PULSAR <CONT> 

220 DEF FN D(X) = EXP (Xx/2)*.5 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ?-2 
INTRODUZCA EL NUMERO DE INTERVALOS (FARES)? 640 


19) 


LA INTEGRAL PEDIDA ES = 4.7670795 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 494.7671286 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


LONGITUD DE UN ARCO DE CURVA DADA EN POLARES 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
dada en forma polar r = r(w), desde un valor particular de w = Wy hasta 
W= wW,. El cálculo de la longitud se realiza por dos procedimientos: re- 
gla de Simpson y regla de los trapecios. 

Para poder ejecutar el programa, es preciso definir la función en 
la linea 210, del siguiente modo: 210 DEF FN R(W) = a 
A continuación, se ha de definir en la linea 220,l1a derivada de r(w) respec 
to de w, ael siguiente modo: 220 DEF FN D(W) = ..... 


listado del programa: 


10 REM IRC RAAAAARAAAR 
20 REM 

30 REM LONGrirToa Dn DE uU ON ARCO DE CURVA 

490 REM 

50 REM DADA EN F. POLAR R=R (W) 

60 REM 

7O REM METODOS: SIMPSON Y TRAPECIOS 

30 REM 

90 REM RR 2020222422022 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210" 
120 FPRINT "DEL SIGUIENTE MODO: 210 DEF FN R(W) = ss... ...” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220" 

160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(W) = oc. a..” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

120 STOP 

190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)"; 

200 INPUT W1,W2 

210 DEF FN R(W)= 

220 DEF FN D(W)= 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 

240 INPUT N 

250 IF N/2<>INT(N/2) GOTO 250 


166 INTEGRACION NUMERICA 


260 H=(W2-W1)/(2%N) 

270 Ni=2X%N-1 

220 N2=2%X (N-1) 

290 SI=0 

300 SPF=0 

2097 REM - SUMA DE LOS PUNTOS IMPARES - 
310 FOR J=1 TO N1 STEP 2 

320 W=W1+HXJ 

330 SI=SI+SQR((FN R(W))%2+(FN D(W)) 72) 
390 NEXT J E 
249 REM - SUMA DE LOS PUNTOS FARES - 

350 FOR J=2' TO N2 STEF 2 

360 W=W1+HXJ 

370 SP=SP+SQR((EN R(W)) *2+(FN D(W))"2) 
380 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

390 FRINT 

400 FRINT 

310 R1=SQRIFNAR (W1) "2+FND(W1)72) 

420 R2=SQR(FNR (W2) *2+FND (W2)72) 

430 IS=HX(R1+9XSI+2XSP+4R2)/3 

440 PRINT "LA INTEGRAL PEDIDA ES ="3103; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
460 PRINT 

470 IT=HX(SI+SP+(R14RZ)/2) 

480 PRINT "LA INTEGRAL FEDIDA ES ="317T; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
500 END 


ejercicios resueltos: 


Leia: la longitud de la cardioide de ecuación: r = 3(1 - cos w) 
SOLUCION: 
La longitud pedida es el doble de la longitud entre O y T. Por tanto, cal 
cularemos esta última: 
DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA Z10 
DEL SIGUIENTE MODO: Z10 DEF FN R 6W) = so... 


A CONTINUACION PULSAR <CONT> 
210 DEF FN R(W) = 3X(1-COS(W)) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 


DEL SIGUIENTE MODO: 220 DEF FN D(W) $ ¿sanos 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(W) = IXSIN(W) 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)? oO 3.1915 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 640 
LA INTEGRAL PEDIDA ES = 11.9994449 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 11.999%273 (MFNTANTE LA REGLA DE LOS TRAPECIOS) 


La longitud de la cardioide será: 24 unidades. 


Z. Hallar la longitud de la rosa de tres pétalos de ecuación: 
r= 2 cos 3 w. 
SOLUCION: 
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La longitud pedida es 6 veces la longitud entre O y T/6. Por tanto, calcu 
laremos esta última: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN R (W) = 
A CONTINUACION PULSAR <CONT> 
210 DEF FN R(W) = 2%C0OS(3%XW) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 - 
DEL SIGUIENTE MODO: 220 DEF FN D(W) = ....... 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(W) = -óX*XSIN(W) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)”? O . 7853982 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES = 2.,1515775 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.1515849 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


La longitud de la rosa será: 12.9 


dá la longitud de la lemniscata de Bernouilli de ecuación: 
y? = 9 cos 2 ww. 
SOLUCION: 


La longitud pedida es 4 veces la longitud entre O y 1/4. Por tanto, calcu 
laremos esta última: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN R (W) = 
A CONTINUACION PULSAR <CONT> 

210 DEF FN R(W) = 3XSQR(COS(2XW) ) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(W) = 


A CONTINUACION PULSAR <CONT> 
220 DEF FN D(W) = -3XSIN(2%W) /SQAR(COS(2XW)) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)”? O .78 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 200 


LA INTEGRAL PEDIDA ES = 3.62139294 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 3,6222104 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


La longitud de la lemniscata será: 14.484 


LONGITUD DE UN ARCO DE CURVA DADA 
EN PARAMETRICAS 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
dad en forma paramftrica: x = X(t), y = y(t), desde t = t, hasta t = t, 
El cálculo de la longitud se realiza por dos procedimientos: regla de Simp 
son y regla de los trapecios. 

Para poder ejecutar el programa,es preciso definir en la linea 210 
la derivada de la función x = x(t) respecto de t, del siguiente modo: 

210 DEF EN ET) = animo 

A continuación, se ha de definir en la linea 220, la derivada de la función 
y = y(t) respecto de t, del siguiente modo: 


220 DEF FN G[(T) = ¿.u...s 


listado del programa: 


10 REM IICA OOOO IIA 
20 REM 


30 REM LONGITUD DD E UN ARCO DE CURVA 
40 REM 

50 REM DADA EN F. PARAMETRICA X=X(T);5 Y=Y(T) 
60 REM 

70 REM METODOS! SIMPSON Y "TRAPECIOS 

80 REM 


90 REM RRA OI OO II III III RIIIE AIR A 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA DERIVADA DE X(T) RESFECTO DE T EN LA LINEA 210" 
120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN F(T) = ¿......"” 

130 PRINT "A CONTINUACION PULSAR «<CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE Y(T) RESPECTO DE T EN LA LINEA 220" 
160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN GE6(TÍ SÉ sisas? 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

180 STOP 

1920 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 

200 INPUT T1,T2 

210 DEF FN F(T) = 

220 DEF FN G(T) = 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
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240 
250 
260 
270 
230 
290 
300 
309 
310 
320 
330 
340 
349 
350 
360 
370 
330 
389 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
3500 


INPUT N 

IF N/2<>INT(N/2) GOTO 250 
H=(T2-T1)/(2%N) 

Ni=2%N-1 

N2=2%X (N-1) 

SI=0 

S<P=0 

REM - SUMA DE LOS PUNTOS IMPARES - 
FOR J=1 TO N1 STEP 2 

T=T1+HXJ 

SI=SI+SOR(FN F(T)"2 + FN G(T)72) 
NEXT J 

REM - SUMA DE LOS PUNTOS PARES - 
FOR J=2 TO N2 STEP 2 

T=T1+HXJ 

SP=SP+SQOR(FN F(T)*2 + FN G(T)72) 
NEXT J 

REM - SALIDA DE RESULTADOS - 

PRINT 

PRINT 

Y1=SQR(FN F(T1)72+FN G(T1)72) 
Y2=SQR(FN F(T2)*24+FN G(T2)72) 

IS=HX (Y1+9XSI+ZXASP+Y2)/3 

PRINT "LA INTEGRAL PEDIDA ES ="3518S; 
PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
PRINT 

IT=HX(SI+SP4+(Y1+Y2)/2) 

PRINT "LA INTEGRAL PEDIDA ES ="31T;5 


PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 


END 


ejercicios resueltos: 


| A la longitud de un arco de la curva: Xx 


de t=0atme 4. 
SOLUCION: 


DEFINA LA DERIVADA DE X(T) RESPECTO DE T EN LA LINEA 210 


DEL 


SIGUIENTE MODO: 210 DEF FN F(T) = ¿c..ooo.. 


A CONTINUACION PULSAR “¿CONT> 


210 


DEFINA LA DERIVADA DE Y(T) 


DEL 


DEF FN F(T) = 2%XT 


SIGUIENTE MODO: 220 DEF FN G(T) = .2..ooo.o 


A CONTINUACION PULSAR <CONT> 


220 


DEF FN G(T) =3XT"2 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 50 


LA INTEGRAL PEDIDA 


LA INTEGRAL PEDIDA 


RESPECTO DE T EN LA LINEA 220 


ES = 66.3828804 (MEDIANTE LA REGLA DE SIMPSON) 


ES = 66.391738 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 
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des- 
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2. Hallar la longitud del arco completo descrito por una cicloide de 
ecuación: X= t- sent, y=1-cos t 
SOLUCION : 


Un arco completo de cicloide se describe desde t = O hasta t = 27. Asi pues 
la longitud pedida será: 


DEFINA LA DERIVADA DE X(T) RESFECTO DE T EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(T) = co... no. 

A CONTINUACION PULSAR <CONT > 

210 DEF FN F(T) = 1-COS(T) 


DEFINA LA DERIVADA DE Y(T) RESPECTO DE T EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN G(T) = ¿....o o. 

A CONTINUACION PULSAR <¿CONT> 

220 DEF FN G(T) = SIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 6.28 
INTRODUZCA EL NUMERO DE INTERVALOS (FAREZS)? 640 


LA INTEGRAL PEDIDA ES = 2.292222*49% (MEDIANTE LA REGLA DE SIMFSON) 


LA IMTEGRAL PEDIDA ES = 7.9925385 (MEDIANTE LA REGLA DE LOs TRAFECIOS) 


3. La posición de un punto en un instante viene dada por las siguientes 
ecuaciones: x= t*/2, y = 5 (6 t + 9) 9/2 


Hallar el espacio recorrido por el punto desde t = O hasta t = 4. 
SOLUCION: 


DEFINA LA DERIVADA DE _X(T) RES 
DEL SIGUIENTE MODO: 210 DEF F 


A CONTINUACION PULSAR <CONT> 
210 DEF FN F(T) = T 


PECTO DE T EN LA LINEA 210 
N F(T) 


DEFINA LA DERIVADA DE Y(T> RESPECTO DE T EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN G(T) = ..... .. 

A CONTINUACION PULSAR <CONT> kl 

220 DEF FN G(T) = SQR(óé6XT+9) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR 7? O 4 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES = 20 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 20 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


AREA DE REVOLUCION 


introducción: 


Este programa sirve para calcular el área de un sólido de revolución 
engendrado al girar la curva y = f(x) alrededor del eje x , desde x = a 
hasta x = b. El cálculo del área se realiza por dos procedimientos: regla 
de Simpson y regla de los trapecios. 

Para ejecutar este programa, es preciso definir en la linea 210 la 
función y = f(x), del siguiente modo: 

210 DEF EN FIX) = so.oss 
A continuación se ha de definir la derivada de la función y = f(x) respecto 
de x en la linea 220 del siguiente modo: 

220 DEF EN D(X) “ siso.=. 


listado del programa: 


10 REM RROORRARROORRRRORRAROOOOROOORORIAOROO OOO OOOO ROO O OOOO OOOO ION IAEA 
20 REM 

ZO REM AREA DEL sub tDO DE RE VOLUCION 

40 REM 

50 REM ENGENDRADAO A L GIRAR LA CURVA Y=F (Xx) 
60 REM 

0 REM AUREDEDOR DEL EJE A [SIMPSON Y TRAPECIOSI 

20 REM 

90 REM RRA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210" 

120 PRINT "DEL SIGUIENTE MODO: 20 DEF GFN FOX) == cocaina” 

130 PPFRINT "A CONTINUACION PULSAR <CONT>" 


140 STOP 

150 PRINT "DEFINA LA DERIVADA DE Y=F (Xx) RESPECTO DE X,EN LA LINEA 220" 
160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN DUX) = ecos” 

170 PRINT "A CONTINUACION PULSAR <¿CONT>" 

120 STOP 


190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUFERIOR "; 
200 INPUT A,B 
210 DEF FN F(X) 
220 DEF FN D(X) = 

230 PRTINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)";5 
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230 INPUT N 

250 IF N/2<>INT(N/2) GOTO 250 
260 H=(E-A)/ (2%XN) 

270 N1=2%N- 1 

2322 N2=2X(N-1) 

220 SI=0 

300 SP=0 

310 FOR J=1 TO Ni STEP 2 

320 X=A+HXJ 

330 SI=SI+FN FIX)XASOR(1AFND(5)*2) 
390 NEXT J 

350 FOR J=2 TO N2 STEP 2 

360 X=A+HXJ 

370 SP=SP+FN F(x)XASQR(I+FNDI(A)*2) 
380 NEXT J 

389 REM - SALIDA DE RESULTADOS - 
390 PRINT 

400 PRINT 

910 Y1=FNF(A)XSOR (14FND(A)*2) 

420 Y2=FNF(B)XSOR(1+FND(E)*2) 

430 IS =6.,2831253%XHX (11+9XS3I+2%SP+Y2)/3 


440 PRINT "EL AREA FEDIDA ES = ";IS ; "UNIDADES CUADRADAS ”; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)” 

460 PRINT 

470 IT=6.2831853XHX (S14SP+ (Y1+Y2)/2) 

430 PRINT "EL AREA FEDIDA ES = "31T 3 "UNIDADES CUADRADAS "; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 

500 END 


ejercicios resueltos: 


e Hallar el área del sólido de revolución engendrado por la curva 
y = L(x + 1) al girar alrededor del eje x, desde x = 1 hasta x = 2. 
SOLUCION :: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(%x) = 2... .... 

A CONTINUACION PULSAR ¿CONT> 

210 DEF FN F(X) =LOG(xX+1) 


DEFINA LA DERIVADA DE Y=F (Xx) RESFECTO DE X,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = ..onoooo. 

A CONTINUACION PULSAR <¿CONT> 

220 DEF FN D(xX)= 1/ (+1) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR 2 1 2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


EL AREA PEDIDA ES = 6.1586332 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES = 6.1586194 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 
PECIOS) 
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2 Hallar el área del sólido de revolución engendrado por la curva 
y = e* al girar alrededor del eje x, desde x = -1 hasta x = 1. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = 


A CONTINUACION PULSAR <CONT> 
210 DEF FN F(X)= EXP (X) 


DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) 02 eos 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(Xx)= EXF(X) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ?-1 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 640 


EL AREA PEDIDA ES 


N 
y 


?.792241 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES = 27.794331 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 
PECIOS) 
3. Hallar el área descrita por una semionda de la sinusoide y = sen X 


al girar alrededor del eje x. 
SOLUCION: 


Al ser una semionda los extremos del intervalo de integración son: O y T. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = ....... 

A CONTINUACION PULSAR ¿CONT> 

210 DEF FN F(X) = SIN(Xx) 


DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X.EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = ........ 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(X) = COS(X) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR 7? O 3.141592 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 
EL AREA PEDIDA ES = 14.423 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES =  14.421315 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 
PECIOS) h 


VOLUMEN DE REVOLUCION 


introducción: 


Este programa sirve para calcular el volumen de un sólido de revolu 
ción engendrado al girar la curva y = f(x) alrededor del eje x, desde x=a 
hasta x=b. El cálculo del volumen se realiza por dos procedimientos: re - 
gla de Simpson y regla de los trapecios. 

Para ejecutar este programa, es preciso definir en la linea 170 la 
función y = f(x) del siguiente modo: 

170 DEF EN PF(X) = sunoco 


listado del programa: 


10 REM RRRRRRORRRRRARRRRORREARARCEORE EEE III III III BERET 
20 REM 


30 REM VOLUMEN DEL SOLIDO DE RE VOLUCION 
40 REM 

50 REM ENGENDRADO A L GIRAR LA CURVA Y=F (X) 
60 REM 

70 REM AUREDEDOR DEL EJE X [SIMPSON Y TRAPECIOSI 
80 REM 


90 REM 3499890299202 RRRRRORRRRRRRORRRRRARRORORDRRAROREORDEARDAE 
100 PRINT 

1092 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 1270" 
120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = .......” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ";5 

160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 

190 INPUT N 

200 IF N/2<>INT(N/2) GOTO 200 

210 H=(B-A)/(2%N) 

220 Ni=2XN-1 

230 N2=2X(M-1) 

240 SI=0 

250 SP=0 

260 FOR J=1 TO Ni STEP 2 
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270 X=A+HXJ 

280 SI=SI4+FN F(X)?2 

290 NEXT J 

300 FOR J=2 TO N2 STEP 2 

310 X=A+H%XJ 

320 SP=SP+FN F1(X)72 

330 MEXT J 

339 REM - SALIDA DE RESULTADOS - 
340 PRINT 

350 PRINT 

360 Y1=FNF (A)72 

370 Y2=FNF (B)?2 

380 IS =3.191592?2XHX (Y1+9XSI+2XSP+Y2)/3 


390 PRINT "EL VOLUMEN PEDIDO ES = "3IS ¡ "UNIDADES CUBICAS"; 


400 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
410 PRINT 
420 IT=3.14915922XH*X (SI4+SP+ (Y1+Y2)/2) 


430 PRINT "EL VOLUMEN PEDIDO ES = "31T 3 "UNIDADES CUBICAS"; 


440 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
4950 END 


ejercicios resueltos: 


AYTO 


Lares el volumen del sólido de revolución engendrado al girar la 


curva y = cosec x alrededor del eje x entre T/4 
SOLUCION: : 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... , 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F(X)=1/SIN(X) 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? .78539 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 

EL VOLUMEN PEDIDO ES = 3.1416241 UNIDADES CUBICAS 


(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES = 3.141669 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


y 


1.57079 


a/2. 


EA el volumen del sólido de revolución engendrado al girar la 


curva y=4x- x? alrededor del eje x, entre x = 
SOLUCION: 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F(X)=4%XX- XXX 


Oy x= 2. 
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1 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 30 


EL VOLUMEN PEDIDO ES =  53.616516 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES =  53.616515 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


3. Hallar el volúmen del sólido de revolución engendrado al girar la 
curva y= e* sen x alrededor del eje x, entre x= O y X=T. 
SOLUCION: 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F (X)=EXP (X)XSIN(X) 


LIMITES DE INTEGRACION: INFERICR, SUPERIOR ? O 3.14159 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


EL VOLUMEN PEDIDO ES = 209.89444 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES = 209.89437 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


REGLA DE TCHEBICHEFF 


introducción: 


El presente programa permite obtener mediante aproximación integra 
les definidas, por la regla de integración numérica de Tchebicheff. 
Para la ejecución del programa, es preciso definir en la linea 170 
la función a integrar del siguiente modo: 
170 DEF FN F(X) = ........ 


listado del programa: 


10 REM IRRRRRIRSIORORRROOROIRROIOOOIOIOIOOIRIOOROIOOOIOI OIOOIOOIAARIARR AREA 
20 REM 


30 REM INTEGRACION NUMERICA 
40 REM E 
50 REM REGLA DE 1TICHAHEBICHAÓE FE EF 
60 REM 


70 REM III O ERICO OOOO OOOO OO OOOO OO OOOO OIR ER AA AAA ER A 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION GUE DESEA INTEGRAR EN LA LINEA 170" 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ...%....” 

130 PRINT "A CONTINACION FULSAR ¿CONT:" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR”; 
150 INPUT A,B 

170 DEF FM F(X)= 

1230 DIM X(9) 

1720 I=0 

12? REM - VALORES DE LOS CUOUEFICIENTES X(J) - 

200 Xx(1)=0 

210 X(2)=.167906172342 

220 X(3)=.5287617831 

230 X(4)=.6010186554 

290 X(5)=,P8115893027? 


250 X(6)=-.1679206182842 
260 x(7?)=-.5287617€31 
20 x(8)=-.6010186554 
280 X(9)=-.9115893077 


220 FOR J=1 TO 9 
300 VY=.5X(B-A)*XX(J) 
310 Y=Y+.5X(E+A) 
320 I=I+FN F(Y) 
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330 NEXT J 

3940 I=IX(B-AM)/9 

249 REM - SALIDA DEL RESULTADO - 
350 PRINT 


360 PRINT "LA INTEGRAL PEDIDA ES ="51;5 
370 PRINT "(REGLA DE TCHEEICHEFF)" 
380 END 


ejercicios resueltos: 


| A el valor de la siguiente integral: 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(4) = 2... ... 
A CONTINACION PULSAR —¡CONT> 


170 DEF FN F(X) = 1/(14+x) 
INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 
LA INTEGRAL PEDIDA ES = .728845729? (REGLA DE TCHEEICHEFF) 
p. i 
e Calcular el valor de la siguiente integral: 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN. F(X) = ...ooo.o. 
A CONTINACION PULSAR <CONT> 
170 DEF FN F(Xx) = 1/S0QR(1+X 
INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 
LA INTEGRAL PEDIDA ES = 1.9999934 (REGLA DE TCHEBICHEFF) 
8 


3. Calcular el valor de la siguiente integral: 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....o.. 

A CONTINACION PULSAR  —¿CONT> 

170 DEF FN F(X) = X/SQOR(XXX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 


LA INTEGRAL PEDIDA ES = 5.9728278é6 (REGLA DE TCHEBICHEFF) 


REGLA DE BODE 


introducción: 


Este programa sirve para calcular mediante aproximación integrales 
definidas de funciones de la forma y = f(x). El procedimiento empleado es 
la regla de integración numérica de Bode. 

Para la ejecución del programa, es preciso definir en la linea 170 
la función a integrar del siguiente modo: 

170 DEF EN F(X) * ¿sonsos 


listado del programa: 


10 REM RRA OOOO IIA HIRO HO III III HICIERA 
20 REM 


3O REM INTEGRACION NUMERICA 
40 REM 

50 REM REGLA DE BODE 

60 REM 


70 REM IRRRRROROORRROROROROORORRORROROORRONRRRRRORRODRODROOROREARORORROOORDEARDOODORDEAAAA AR 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFIMA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1270” 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ,......” 

130 PRINT "A CONTINACION PULSAR  —<¿CONT>" 

140 ETOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR”; 
150 INPUT A,B : 

170 DEF FN F(X) = 

120 DIM W(6) 

190 I=0 

200 H=(B-A)/10 

209 REM - VALORES DE LOS COEFICIENTES W(J) - 


210 W(1)= — 26834145336 
220 W(2)= 1,775359414 
230 W(3)= -.8104357063 


240 W(94)= 4.5493962283 
250 W(5)=-4.351551227 
260 W(6)= 3.568823152 
270 FOR J=1 TO á 

220 K=11-J 

290 xX=A+HX(J-1) 

2300 S=FN F(X) 

310 X=A+HXK 


180 INTEGRACION NUMERICA 


320 S=S+FN F(X) 
330 I=1I+SXW(J) 

340 NEXTJ 

350 I=1XH 

259 REM - SALIDA DEL RESULTADO - 

360 PRINT 

370 PRINT "LA INTEGRAL PEDIDA ES =";1; 
320 PRINT "(MEDIANTE LA REGLA DE BODE)” 
390 END 


ejercicios resueltos: 


: y , dx 
L.ésisotar el valor de la siguiente integral: METE 
o 
SOLUCION : 
DEFINA LA FUNCION GUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINACION PULSAR <CONT> 
170 DEF FN F(X) =.17/(1+%X) 
INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O Lil 
LA INTEGRAL FEDIDA ES = .728945737 (MEDIANTE LA REGLA DE EODE) 
a dx 
2. Calcular el valor de la siguiente integral: K—__——— 
+ 
SOLUCION: E HERA 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA i70 
DEL SIGUIENTE MODO: 170 DEF FN F(xX) = 
A CONTINACION PULSAR  x¿CONT> 
170 DEF FN F(xX) = 1/S0OR(1+X) 


INTRODU2CA LOS LIMITES DE INTEGRACION : INFERIOR Y SUFERIOR? O 3 


LA INTEGRAL PEDIDA ES = 2.0000018 (MEDIANTE LA REGLA DE BODE) 


3. Calcular el valor de la siguiente integral: AE 
SOLUCION: 4 vx“-15 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 120 DEF FN F(X) = ....... 

A CONTIMACION PULSAR  —“¿CONT> 

170 DEF FN F(X) = X/SQR(XXX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 8 


LA INTEGRAL PEDIDA ES = 6.0234%é5 (MEDIANTE LA REGLA DE BODE) 


REGLA DE GAUSS 


introducción: 


Este programa sirve para calcular mediante aproximación integrales 


definidas de funciones de la forma y = f(x). El procedimiento empleado es 


la regla de integración numérica de Gauss. 


Para la ejecución del programa, es preciso definir en la linea 170 


la función a integrar del siguiente modo: 


170 DEF FN F(X) » o.oooo.» 


listado del programa: 


10 

20 

0 

40 

50 

60 

70 

100 
109 
110 
120 
130 
140 
150 
160 
170 
1820 
190 
1.99 
200 
z10 
220 
230 
240 
250 
260 
2? 

220 
290 
300 


REM RRA 2RRR0RRRRRRIRRROOORIROOIOIIIOIIOIOIEEAAAA 


REM 
REM 
REM 
REM 
REM 


INTEGRACION NUMERICA 


REGLA DE GAUSS 


A EEE 


PRINT 
REM - 
PRINT 
PRINT 
PRINT 
STOP 
PRINT 
INPUT 


ENTRADA DE DATOS - 

"DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 1270” 
"DEL SIGUIENTE MODO: 1720 DEF FN F(X) = .......” 

"A CONTINUACION PULSAR  —<CONT>" 


"INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR”; 
A,B 


DEF FN F(X) = 
DIM *xX(12),V (12) 


I=0 
REM - 
x(1) 
Xx (2) 
Xx (3) 
x (4) 
x(5) 
x(6) 
Xx (?) 
Xx (8) 

(9) 
Xx (10) 
x(11) 


tl 


VALORES DE LOS COEFICIENTES X(J) Y V(J) - 
«1252334085 : V(1) =.2491470458 
. 3678314989 : V(2) =.2334925365 
. 5873179592 : V(3) =.2031674267 
. 7ZÁ6PPIOZ6741 : V(4) =.1600723285 
.9041172563 : V(5) =.1069393259 
. 7815606342 : V(6) =.0471753363 
-X(1) : V(7?) = V(1) 

-=X (2) : V(8) = V(2) 
=-X (3) : V(9) = V(3) 
-Xx (9) : V(10)=V (49) 
-X (5) : V(11)=U (5) 
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310 X(12)=-X(6) :V(12)=V (6) 
320 FOR J=1 TO 12 

330 Y=(B-A)XX(JIX.S 

390 Y=Y+(B+A)X.5 

349 REM - SALIDA DEL RESULTADO - 
350 I=I+V(J)XFN F(Y) 

360 NEXT J 

370 I=IX(E-A)X.S 

330 PRINT 


390 PRINT "LA INTEGRAL FEDIDA ES = "3 1; 
400 PRINT "(MEDIANTE LA REGLA DE GAUSS)" 
410 END 


ejercicios resueltos: 


¡AA el valor de la siguiente integral: 
SOLUCION: 


DEFINA LA FUNCION GUE DESEA INTEGRAR EN LA LINEA 170 


DEL SIGUIENTE MODO: 170 DEF FN F(X) = 2... .... 
A CONTINUACION PULSAR —<¿CONT> 
170 DEF FN F(xX) =1/(1+x) 


INTRODUZCA LOS LIMITES DE INTEGRACICN : INFERIOR Y SUPERIOR? O 1.2 


LA INTEGRAL PEDIDA ES = ¿228845736 (MEDIANTE LA REGLA DE GAUSS) 


Z. Calcular el valor de la siguiente integral: 3 
SOLUCION: o — vi+x 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) =1/SQR(1+X) 
INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 3 
LA INTEGRAL PEDIDA ES = 2 (MEDIANTE LA REGLA DE GAUSS) 
3 "xa 
e Calcular el valor de la siguiente integral: as 


SOLUCION: é Vx? - 15 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 10 
DEL SIGUIENTE MODO: 10 DEF FN F(X) = ....... 

A CONTINUACION PULSAR  —<¿CONT> 

170 DEF FN F(X) =X/SQR(X*Xx-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 3 


LA INTEGRAL PEDIDA ES = 5.9998334 (MEDIANTE LA REGLA DE GAUSS) 


INTEGRALES IMPROPIAS CON EXTREMO 
SUPERIOR INFINITO 


introducción: 


Este programa sirve para calcular integrales impropias con extremo 
superior infinito de funciones de la forma y = f(x). El cálculo se realiza 
mediante la regla de Gauss. 

Para la ejecución de este programa, es necesario definir en la li- 
nea 170 la función a integrar, del siguiente modo: 

170 DEF FN F(X) = .«..<.. 
Como el extremo superior es siempre infinito, el programa solo requiere 


la introducción del extremo inferior. 


listado del programa: 


10 REM ISRRRSRCROSOSOCOSOSOSOSOOIOIOSIOOIOIOIIOIOIO OIR 
20 REM 


30 REM INTEGRALES IMPROPIAS 

40 REM 

50 REM CON EXTREMO SUPERIOR INFINITO 

60 REM 

70 REM ISRRROSIOIRRIORROORSOOIRIOIORIOOROIIROIORIRRRRRRRRRRRRO9RR9R9RRRORORRROROOIOIOOAAA 
100 PRINT 


109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 
120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = co... ...” 

130 PRINT "A CONTINUACION PULSAR ¿CONT>" 

140 STOP 

150 PRINT "INTRODUZCA EL LIMITE INFERIOR"; 

160 INPUT A 

170 DEF FN F(X)= 

180 DIM Xx(12),V (12) 


170 I=0 

199 REM - VALORES DE LOS COEFICIENTES X(J) Y V(J) —- 
200 Xx(1) = 12523340835 : V(1) =.2491470458 
210 X(2) = 3678314989 : V(2) =.2334925365 
220 X(3) = 5873179592 : V(3) =.2031674267 
230 X(4) = .76992026741 : V(4) =.1600783285 
240 X(5) = .9041172563 : V(5) =.1069393259 
250 X(6) = .?815606342 : V(6) =.0471753363 
260 X(7?) = -X(1) : V(7) = V(1) 

270 X(8) = -X (2) : V(8) = V(2) 

280 X(9) = -X(3) : V(9) = V(3) 

290 X(10)= -X(49) : V(10)=V (4) 
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300 X(11)= -X(5) : V(11)=V (5) 
310 X(12)=-X(6) : V(12)=V (6) 
320 FOR J=1 TO 12 

330 Y=A+ (2/(X(J)+1))-1 

340 YE=FN F (Y) 

350 YE=YE/((X(J)+1)7Z2) 

360 I=I+V(J)XYE 

370 NEXT J 

380 I=2xXI 

389 REM - SALIDA DEL RESULTADO - 

390 PRINT 

400 PRINT "LA INTEGRAL IMPROPIA PEDIDA ES = "3 1; 


410 PRINT "(MEDIANTE LA REGLA DE GAUSS CON EXTREMO SUPERIOR INFINITO)" 
420 END 


ejercicios resueltos: 


Lis el valor de la siguiente integral: 
SOLUCION: o Xx +4 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 


A CONTINUACION PULSAR  —<CONT> 
170 DEF FN F(X)=1/ (XXX+4) 


INTRODUZCA EL LIMITE INFERIOR? O 


LA INTEGRAL IMPROPIA PEDIDA ES = '.78539816 (MEDIANTE LA REGLA DE GAUSS 
TREMO SUPERIOR INFINITO) 


ls] 
—X 


ex Calcular el valor de la siguiente integral: m4 e sen x dx 
o 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..o.n... 

A CONTINUACION PULSAR  —<CONT> 

170 DEF FN F(X)=EXP (-X)%SIN(X) 


INTRODUZCA EL LIMITE INFERIOR? O 


LA INTEGRAL IMPROPIA PEDIDA ES = .49735825 (MEDIANTE LA REGLA DE GAUSS 
TREMO SUPERIOR INFINITO) 


 nasisnes el valor de la siguiente integral: E. 


Xx 
SOLUCION: 1 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 


A CONTINUACION PULSAR —<¿CONT> 
170 DEF FN F(X)=1/ (XXX) 


INTRODUZCA EL LIMITE INFERIOR? 1 


CON EX- 


CON EX- 


LA INTEGRAL IMPROPIA PEDIDA ES = 1 (MEDIANTE LA REGLA DE GAUSS CON EX-TREMO SU 


PERIOR INFINITO) 


INTERPOLACION LINEAL 


introducción: 


Este programa sirve para, 


a 


partir de dos puntos conocidos A, B , 


construir la recta determinada por ellos, y asi poder interpolar para va- 


lores intermedios de x la y esperada o reciprocamente. 


listado del programa: 


PRINT 
REM - ENTRADA DE DATOS - 


REM 0090030020022 9090990000 AA 
REM 
PREM 
REM INTERPO 
REM 
REM 
REM RRA 9000020200200 


ACION LINEAL 


PRINT "INTRODUZCA COORDENADAS X0,YO DEL PUNTO A(xX0,YO)"; 


INPUT XO,YO 


PRINT "INTRODUZCA COORDENADAS X1,Yi1 DEL PUNTO B(Xx1,Y1)";5 


INPUT X1,vW1 
PRINT 


PRINT "SI DESEA HALLAR X A PARTIR 
PRINT "SI DESEA HALLAR Y A FARTIR 


INPUT € 

PRINT 

IF C=1 THEN 270 

PRINT "INTERPOLACION PARA XxX =" 
INPUT X 

Y=Y1+ (X-X1)X(Y1-YO)/ (X1-X0) 


PRINT "CORRESPONDE yn 
PRINT 

GOTA 210 

PRINT 

PRINT "INTERPOLACION PARA Y =" 
INPUT Y 
X=xX1+(X1-X0)X(Y-Y1)/(W1-YO) 
PRINT "CORRESPONDE x=" 
PRINT 

GOTO 280 

END 


DE Y CONOCIDO, PULSE 1" 
DE % CONOCIDO, PULSE 2” 


186 INTERPOLACION 


ejercicios resueltos: 


1. pacos los puntos A(2.35, 7.98) y B(12.39, -3.56), calcular los 


valores de y para los siguientes valores de x: 5.6, 3.9, 12. 


SOLUCION : j 


INTRODUZCA COORDENADAS XO,YO DEL PUNTO A(X0,YO)? 2.35 7.98 
INTRODUZCA COORDENADAS X1,Y1 DEL PUNTO B(X1,Y1)? 12.39 -3.56 


SI DESEA HALLAR X A PARTIR DE Y CONOCIDO, PULSE 1 
SI DESEA HALLAR Y A PARTIR DE X CONOCIDO, PULSE 2 
2 2 


INTERPOLACION PARA X =7? 5.6 
CORRESPONDE Y = 4,.2444422 


INTERPOLACION PARA X =? 3.9 
CORRESPONDE Y = 6.1984263 


INTERPOLACION PARA X =7? 12 
CORRESPONDE Y =-3.1117331 


y Dados los puntos A(1, 43.75) y B(5, 117.98), calcular los valores 
de x para los siguientes valores de y: 10, 6, 15. 


SOLUCION : 


INTRODUZCA COORDENADAS XO,YO DEL PUNTO A(X0,YO)? 1 43.7 
INTRODUZCA COORDENADAS X1,Y1 DEL PUNTO B(X1,Y1)7? 5 117.78 


SI DESEA HALLAR X A PARTIR DE Y CONOCIDO, PULSE 1 


SI DESEA HALLAR Y A PARTIR DE X CONOCIDO, PULSE 2 
? 1 


INTERPOLACION PARA Y =”? 10 
CORRESPONDE X =-.823538503 


INTERPOLACION PARA Y =7? '6 


CORRESPONDE XxX =-1.0397136 
INTERPOLACION PARA Y =? 15 
CORRESPONDE XxX =-.55342429 


INTERPOLACION DE LAGRANGE 


introducción: 


Este programa sirve para ajustar un polinomio a un conjunto de pun- 
tos. El método del ajuste se conoce con el nombre de interpolación de La- 
grange. | 

Gracias a este ajuste es posible calcular las ordenadas de puntos 


cuyas abscisas son conocidos. 


listado del programa: 


10 REM IRRRROOOOOIIII  202202220202002020202020202020902002020209002900090200OOIAAA 
20 REM 

3O REM 

40 REM INTERPOLACION DE LAGRANGE 
50 REM 

60 REM 

20 REM IIA OOOO ORIO 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE FUNTOS CONOCIDOS"; 

120 INPUT N 

130 DIM X(N),Y(N) 

140 PRINT "INTRODUZCA LAS COORDENADAS DE LOS";¿N;5"PUNTOS CONOCIDOS” 

150 PRINT 

150 FOR J=1 TO N 

170 PRINT "CCUORDENADAS X,Y DEL PUNTO"3J 5 

130 INPUT xX(J),Y(J) 

190 NEXT J 

200 FRINT 

210 PRINT "INTERPOLACION PARA X ="; 

220 INPUT XO 

230 Y=0 

240 FOR I=1 TO N 

250 S=1 

260 FOR J=1 TON 

270 IF J=I THEN 290 

230 S=SX(XO0-X(J))/(X(1)-X(J)) 

290 NEXT J 

300 Y=Y+SXY(1) 

310 NEXT I 
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320 PRINT "CORRESPONDE Y ="*3Y 
330 PRINT 

340 GOTO 210 

350 END 


ejercicios resueltos: 


Í.. pados los siguientes puntos: (1, 4.5), (2, 5), (3, 5.7), (4, 6), 
(5, 6.3), (6, 6.8), (7, 7.3), (8, 7.9), hallar los valores correspondientes 
para X= 1.7, x= 3,4, x= 7.2, x= 4.8, 
SOLUCION: 


NUMERO DE PUNTOS CONOCIDOS? 8 
INTRODUZCA LAS COORDENADAS DE LOS 8 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL FUNTO 1 ? 1 4.3 
COORDENADAS X,Y DEL PUNTO 2 ? 2 Ss 
COORDENADAS X,Y DEL PUNTO 23 7? 3 5.7 
COORDENADAS 2%x,Y DEL PUNTO 4 ? 4 [=) 
COORDENADAS X.Y DEL PUNTO 5 7 5 6.3 
COORDENADAS »%,Y DEL FUNTO 6 ? 6é 6.8 
COORDENADAS X,Y DEL PUNTO 2? ? 7 2.3 
COORDENADAS X,Y DEL PUNTO 8 ? 8 2.9 
INTERPOLACION PARA X =7? 1.7 

CORRESPONDE Y = 4,7415053 
INTERPOLACION PARA XxX =7? 3.4 

CORRESPONDE Y = 5,85019838 
INTERPOLACION PARA X =7? 72,2 

CORRESFONDE Y = 7.3891246 
INTERPOLACION PARA X =7 4.8 

CORRESPONDE Y = 6.2231109 


2. dades los puntos: (0, 4.57), (3, 8.23), (6, 12.06) , (8, 15), hallar 
los valores de y correspondientes a los siguientes valores de x: 4,. 5, 
de Le 
SOLUCION: 


NUMERO DE PUNTOS CONOCIDOS? 4 
INTRODUZCA LAS COORDENADAS DE LOS 4 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL PUNTO 1 ? O 4.57, 
COORDENADAS X.Y DEL FUNTO 2 ? 3 8.23 
COORDENADAS X,Y DEL PUNTO 3 7? 6 12.06 
COORDENADAS X.Y DEL PUNTO 4 ? 8 15 
INTERPOLACION PARA X =7? 4 

CORRESPONDE Y = 9.4585556 


INTERPOLACION PARA X =? 5 
CORRESPONDE Y = 10.727917 
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INTERPOLACION PARA X =7? 7 
CORRESPONDE Y = 13.476722 


INTERPOLACION PARA X =? 1 
CORRESPONDE Y = 5.8076389 


" 3. Dados los puntos: (-6, 7.25), (-4, 8), (-2, 7.75), (O, 8.25), 


(2, 8.3), (4, 9), (5, 9.2), (7, 10), (9, 10.5), hallar los valores de y 
correspondientes a los siguientes valores de x: 3, 8.5 =5», 1. 
SOLUCION: 


INTERPOLACION PARA X =NUMERO DE PUNTOS CONOCIDOS? 9 
INTRODUZCA LAS COORDENADAS DE LOS 92 PUNTOS CONOCIDOS 


NUMERO DE PUNTOS CONOCIDOS? 9 
INTRODUZCA LAS COORDENADAS DE LOS 9 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL PUNTO 1 ?-ó 7.25 
CODRDENADAS X,Y DEL PUNTO 2 ?-4 1] 
COORDENADAS X,Y DEL PUNTO 3 ?-2 2.75 
COORDENADAS X,Y DEL PUNTO 4 ? O 8.25 
COORDENADAS X,Y DEL PUNTO S ? 2 8.3 
COORDENADAS X,Y DEL PUNTO 6 ? 4 9 
COORDENADAS X,Y DEL PUNTO 7 ? 5 9.2 
COORDENADAS X,Y DEL PUNTO 8 ? 72 10 
COCRDENADAS X,Y DEL PUNTO 9 ? 9 10.5 
INTERPOLACION PARA X =? 3 

CORRESPONDE Y = 8.6272072 
INTERPOLACION PARA X =7? 8.5 

CORRESPONDE Y = 11.593759 
INTERPOLACION PARA Xx =?-5 

CORRESPONDE Y = 9.3737544 


INTERPOLACION PARA Xx =7? 1 
CORRESPONDE Y = 8.2041084 


ESTADISTICA 


es 
Q 
< 
z 
cn a 
= QS 
< 
“n 
O 
e 
A 


NUMEROS ALEATORIOS ENTRE 0 Y 1 


introducción: 


Este breve programa sirve para generar numeros aleatorios entre O y 


1, para ello se utiliza la función de librería que poseen los microordena- 
dores RND. 


En algunos micros para obtener números aleatorios entre O y 1 se ha 
de escribir en la linea 160 X = RND(1). 

La sentencia de la linea 110 RANDOMIZE sirve para restablecer la ge 
neración de números aleatorios, ya que si no se hiciera al ejecutar la fun 
ción RND se produce la misma serie de números. No todos los micros preci - 
san de la sentencia RANDOMIZE. 


listado del programa: 


10 REM IRRADIA OOOO 
20 REM 

30 REM NUMEROS ALEATORIOS 

40 REM 

50 REM ENTRE a) Y 1 

60 REM 

70 REM III IIA 
100 PRINT 

110 RANDOMIZE $ 

120 PRINT "CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR " 5 

130 INPUT N 

140 PRINT 

150 FOR I=1 TO N 

160 X=RND 

170 PRINT *X, 

180 NEXT 1 

190 END 


ejercicios resueltos: 
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1. Generar 100 números aleatorios comprendidos entre O y 1. 


SOLUCION 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR ? 100 


«66111636 
. 30280804 
.8733116 
. 46287042 
. 19922229 
. 44692652 
. 689522 

. 6033445 
. 36607594 
. 81727499 
. 75894927 
. 088697927 
11127729 
«31550171 
+. 2035357 
. 47287886 
. 2926600549 
. 2753583021 
. 95177646 
«61176495 


29669448 
.34766993 
. 472501949 
. 927966703 
945345791 
«9782997 

«78152328 
.66779691 
. 28571379 
«555911649 
. 30091226 
.36144892 
.75719156 
. 99090403 
56804217 
«2735359229 
. 20703035 
. 34897105 
. 40323387 
. 94880605 


. 74986924 
.- 40634861 

. 2871809 

. 15479702 
«31910335 
«25928223 
. 018509465 
. IB22923 
. 062664971 
68375735 
«51479547 
«21847771 

. 40561985 
. 29206412 
. 85408357 
. 27860843 
. 7315649418 
.3872161 

. 062298208 
«33693107 


«23111219 
«253326 
«33212093 
. 18181261 
«Só41103 
«91201971 
. 36676237 
. 26059705 
. 54529696 
«3236367 
. 49191142 
. 89650064 
. 60864429 
. 92722857 
. 29270808 
«16215432 
. 977900652 
. 47522683 
-. 62320955 
. 03847059 


. 635941254 
. 28743388 
. 32923229 
. 43484974 
. 75644424 
. 947205755 
«53382305 
.972106874 
. 60825273 
.56983113 
«12138261 
. 23277209 
. 72951833 
. 82792673 
.02411302 
«27357606 
. 32295841 
. 62720254 
. 82828118 

. 33914117 


2. Generar 40 números aleatorios comprendidos entre O y A. 


SOLUCION 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR ? 40 


. 22396731 
. 2720402649 
. 16235884 
. 85335272 
. 30723926 
«51191371 
.37334463 
. 28876625 


. 68521682 
. 16478835 
. 1025526 

.6614633 

. 81702908 
. 80342976 
. 86591964 
. 99163419 


. 43491258 
:.61818638 
. 88825022 
. 42242092 
. 18798458 
«22937195 
. 85675104 
:. 88527696 


036455817 
. 15839611 
26676632 
.68423876 
14411213 
76075934 
. 20098784 
. 618638608 


. 48510919 
. 9293695 

.24254711 
. 68648243 
29927566 
. 90694295 

«29113201 
«12673463 


3. Generar 25 números aleatorios comprendidos entre O Ss 


SOLUCION 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR >? 25 


. 85267519 
«613149129 
. 0939231749 
. 44190484 


. 54384414 
. 89298354 
.27819652 
. 50989774 


. 15895738 
. 98401585 
. 4928999 


«051556056 


. 65106458 
. 18602978 
. 66225887 
.87019762 


. 54179559 
«99376323 
«13919933 
. PO733651 
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NUMEROS ALEATORIOS ENTRE O Y 100 


introducción: 


Este breve programa sirve para generar números aleatorios entre O 
y 100 (solo parte entera), para ello escribiremos en la linea 160, los si- 
guiente: X = INT (RND *100 + .5) 


Todo lo dicho en el programa anterior sobre RND( ) y RANDOMIZE es 


igualmente válido en este y en los siguientes programas. 


listado del programa: 


10 REM IRRITANTE TETERA: 


20 REM 

30 REM NUMEROS ALEATORIOS 
40 REM 

50 REM PARTE ENTERA ENTRE O Y 100 

60 REM 


70 REM IRRRRRRRRRRRRRARORRRRARORARRARRORORRAROREAROAORERORARDORORAORDORDORDADOAEOOOdEAAAAAR 
100 PRINT 

110 RANDOMIZE 

120 PRINT 

130 PRINT "CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR"; 
140 INPUT N 

150 FOR I=1 TON 

160 X=INT(RNDX*100+.5) 

170 PRINT *X, 

180 NEXT 1 

190 END 


ejercicios resueltos: 


Es Generar 100 números aleatorios (parte entera) entre O y 100. 
SOLUCION: 
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tí óóáóóg  AA<l —K—K—<KÉK<— 


CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR ? 100 


388 60 26 83 56 22 66 89 78 52 
21 69 77? 100 74 54 36 38 67 74 
41 18 40 44 58 70 64 87 28 44 
33 20 96 93 85 6 26 41 s1 30 
66 94 82 76 44 82 89 90 ae 37 
85 64 82 52 30 93 99 74 14 59 
71 23 25 61 55 42 92 é 50 19 
94 8 56 40 74 73 15 56 20 59 
46 es 68 49 15 66 62 76 8 52 
75 69 ? 100 64 33 70 93 28 73 
pr 30 números aleatorios (parte entera) entre O y 100. 
SOLUCION: 
CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR ? 30 
91 381 e 38 83 32 74 17 21 Lo! 
21 48 76 49 82 11 81 36 48 38 
73 18 10 43 69 76 es 49 57 8 
E 50 números aleatorios (parte entera) entre O y 100. 
SOLUCION: 
CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR ? 50 
25 12 94 48 3 91 60 29 45 95 
380 96 84 33 52 42 = 43 28 60 
41 38 60 27 37 10 34 30 57 73 
57 46 58 40 75 1 18 100 36 45 
96 20 1 21 32 93 96 40 8 13 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 


UNA DISTRIBUCION BINOMIAL B (N, P) 


introducción: 


Este programa sirve para generar números aleatorios que siguen una 


distribución binomial de parámetros conocidos n y p. 


La ley de probabilidad de la distribución binomial viene dada por 


la siguiente expresión: 
E - á 
p(X = r) = (2) p” qr* siendo q = 1-p 
Obsérvese que al ser la media de la distribución binomial igual a 
np, los números aleatorios generados se concentran entorno a np en cada 
caso. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
240 
250 


REM 2224220202022 
REM 


REM GENERACION DE ¿NUMEROS ALEATORIOS 

REM 

REM QUE SE DISTRIBUYEN SEGUN UNA BINOMIAL B(N,P) 
REM 


A 
PRINT ! 

PRINT "CUANTOS NUMEROS QUIERE GENERAR M ="; 
INPUT M 

PRINT "NUMERO DE PRUEBAS REALIZADAS N ="; 
INPUT N 

PRINT "PROBABILIDAD DEL SUCESO EXITO P =="; 
INPUT P 

PRINT 

FOR J=1 TO M 

Z=0 

FOR I=1 TON 

IF RND <P THEN Z=2Z+1 

NEXT I 

PRINT Z, 

NEXT J 

END 
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ejercicios resueltos: 


¡PP 100 números aleatorios que se distribuyan según una bino- 
mial de parámetros B(15, 0.4). 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR M =? 100 
NUMERO DE PRUEBAS REALIZADAS N =2 15 
PROBABILIDAD DEL SUCESO EXITO P =? .4 


ó 8 4 S 5 ? 4 9 ? 6 
5 8 Z =) 9 4 7 5 8 8 
? 3 4 4 1 =) ? 1 é 8 
7 4 5 5 5 Z 8 Ss 4 4 
? ? 5 8 m=] 8 5 4 ES ? 
8 ? 6 5 S 8 8 5 é 3 
10 4 =) ó 2 E] ó 10 é é 
6 6 8 7 ES 6 4 Es 10 4 
8 S 6 7 5 6 4 ? 4 5 
5 4 3 5 S 6 E] 4 6 6 


2. Generar 50 números aleatorios que se distribuyan según una binomial 
de parámetros B(12, 0.3). 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR M =? 50 
NUMERO DE PRUEBAS "REALIZADAS N =? 12 
PROBABILIDAD DEL SUCESO EXITO P =? .3 


Y ro00_- 
UNdAOo 
o0ognN—DAaGy 
N - NON 
N-o0do-_m 
BbBhDbBRID 
UDANO 
o0AadaNnN 
NLOD A 
-NANOo 


3. Generar 30 números aleatorios que se distribuyan según una binomial 
de parámetros 6B(8, 0.65). 
SOLUCION: 
CUANTOS NUMEROS QUIERE GENERAR M =7? 30 


NUMERO DE PRUEBAS REALIZADAS N =? 8 
PROBABILIDAD DEL SUCESO EXITO P =? .65 


6 6 6 7 4 E] 5 4 5 5 
6 3 E] 6 E] 5 é =) 4 5 
5 S =) 8 ? 5 6 8 3 5 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 


in 
buy 


gui 


UNA DISTRIBUCION DE POISSON P (L) 


eo y; 
troducción: 
o 
Este programa sirve para generar números aleatorios que se distri- 
en según una ley de Poisson de parámetro conocido L. 


La ley de probabilidad de esta distribución viene dada por la si - 
ente expresión: Y -L 
p(x = r) = 8 


El parámetro L es la media de la distribución. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
1640 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 
300 


REM RRA III AAA 
REM 


REM GENERACION DE NUMEROS ALEATORIOS 
REM 
REM QUE SE DISTRIBUYEN SEGUN UNA DISTRIBUCION DE POISSON P(L) 
REM 
REM IRRSRRRRORRORRRRORAIORRARRIORRIRIRRRIOIRIOOIRRIRIRORIRIIOIOIOIIOIOIIIIIOIIIIOIOOIERAAAAAAAAR: 
PRINT 

PRINT "CUANTOS NUMEROS QUIERE GENERAR "5; 

INPUT N 


PRINT "INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON"; 
INPUT L 

PRINT 

FOR J=1 TO N 

X=RNDXAEXP (L) 

Ai=1 

Bi=1 

B=0 

IF Ai>X THEN GOTO 260 
B=B+1 

B1=B1XL/B 

A1i=A1+B1 

GOTO 210 

IF B>0 THEN B=B- (Al-X)/B1 
Z=B 

PRINT Z, 

NEXT J 

END 
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ejercicios resueltos: 


a 100 números aleatorios que se distribuyan según una ley de 
Poisson de parámetro 4.5. 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR ? 100 
INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON? 9.5 


4.47290046 7.8768798 1. 1382678 2.2340479 . 9441736 

4.3899337 4.1750698 £8.7034091 1.ó62817 3.9125009 
2.9691246 3.53076372 6.6992425 2. 4097152 4.9733847 
1.0481329 1.9980574 1.0643043 7.3704396 4.6607317 
3.389521 4.992263 1.941012942 1.5416204 3.7250827 
2.0376018 3.8150252 5.2728204 2. 9852433 2.7765388 
2.7354873 3.57958806 3.4807801 2.01435589 4.9225839 
6.0145394 5.6717572 4.1234886 3.5207337 5.94562648 
2.68283133 2.2100816 4.0966309 5.3790696 4.910408 

3.5224978 4.684139 4.8034561 2.2877596 3.2461986 
2.0717965 1.48850771 7.8764168 6.75534964 4.190031 

6.3337475 2.03794883 8.7444758 5. 6254214 9.6360966 
3.9325078 2.3260118 2.5575084 5.2563448 4.1579961 
4.6356179 6.8796726 1.2419169 1.7395451 4.9809084 
3.7837442 4.8407635 4.87616 5.5472892 1.4661639 
4.1187839 1.0565397 1.2710927? 1.7913829 5.9421862 
1.2954799 6.5097622 7.1190892 2.6292761 3.57532319 
3.2212459 2.0637678 3.6230742 4.825986 9.5821035 
. 033714553 5.9346837 4.6771683 3.710739 5.0690967 
7,.3808591 4.076205 2.3014229 6.0611323 6.1918552 


2. Generar 50 números aleatorios que se distribuyan según una ley de 


Poisson de párametro 5.7. 
SOLUCION: 


NUMEROS QUIERE GENERAR ”? 50 
INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON? 35.2 


5.7462943 9.5648654 1.9977642 3.2243582 1.1982538 
5.6508272 5. 4205337 10.432007 2.5323847 5. 12286894 
4.058842 4.6903744 8.2061556 3.4257503 6.3417963 
1.8112457 2. 9352359 1.2447096 3.9213368 5.9410714 
4.5305786 6.36401724 2.294907 2. 438122 4.9102183 
2.79287808 5.0126054 6.643523 4.0750517 3.8692205 
3.7992287 4.7640447 4.6338251 2.9608044 6.2722967 
7.5201647 7.0524224 5.3706075 4.6790269 6.8246182 
3.7451964 3.1968822 5.3364621 6.7484116 6.25627 

4.6810226 5.9661595 6.1154937 3.2859355 4.36843 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 
UNA DISTRIBUCION NORMAL N (M, S) 


introducción: 


Este programa sirve para generar números aleatorios que siguen una 
distribución normal de parámetros conocidos M y S. 
El cálculo de estos números está basado en el teorema central del 


límite. 
La función de densidad de una distribución normal N(M,S) viene da- 
da por la expresión: 
pe 1 -M,2 
£(x) = ——— €expl- al E ) 
S y2 T 


Obsérvese que para valores de N suficientemente grandes se verifi- 
ca que el 68,2% de los números obtenidos se encuentran en el intervalo: 


(M - S, M+ S). 


listado del programa: 


10 REM HR III RIIIE III NINA 
20 REM 

30 REM GENERACION DE NUMEROS ALEATORIOS 

40 REM 

50 REM QUE SE DISTRIBUYEN SEGUN UNA NORMAL N(M,S) 
60 REM 

70 REM IRRSSRSICOIOOIOOICIOIOIOIIOIRIIIICIOIOIIIICIOIIIIIOIIIIIOIOIOIIIOIOIOIIOAIIOIIAIIIAAA 
100 PRINT 

110 PRINT "CUANTOS NUMEROS QUIERE GENERAR"; 

120 INPUT N b 

130 PRINT "INTRODUZCA LA MEDIA Y LA DESVIACION TIPICA" 

140 PRINT "MEDIA Mm ="; Ñ 

150 INPUT M 

160 PRINT "DESVIACION TIPICA S ="; 

170 INPUT S 

180 PRINT 

190 FOR J=1 TO N 

200 Z=0 

210 FOR I=1 TO 48 

220 Z=Z+RND-.5 

230 NEXT 1 

240 Z=M+S*Z/2 

250 PRINT Z, 

260 NEXT J 

270 END 


J.R.VIZMANOS 201 


ejercicios resueltos: 


Lis 100 números aleatorios que se distribuyan normalmente sien- 
do la media M = 7, y la desviación típica S = O,5. 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR”? 100 
INTRODUZCA LA MEDIA Y LA DESVIACION TIPICA 
MEDIA Mm =? 7 

DESVIACION TIPICA S=7? .5 


6.6837221 7.3083412 6.5923658 6.58081139 6.9133598 
6.579334 6.1652235 8.1051712 7.1809766 7.322095 

?7.1056385 7.5063749 7.6467287 6.5467805 6.8242669 
6.9445812 7.2207726 6.8135466 6.7312651 7.07979463 
7.0632642 6.428254972 6.7367294 6.5726264 6.5843601 
6.7139459 7?.0009958 7.3327778 7.6942162 7.167828916 
7.18940408 7.7705568 6.8029891 7.004543 6.9460805 
6.79611972 7.8208347 é6.8840563 5.92472712 7.3196226 
6.4079096 7.466582878 6.2477692 6.0012218 7.7243698 
6.9122938 6.0577307 7.3010735 6.29303716 ?7.6313304 
6.23731109 6.4793391 ?.1860713 6.533854 7.0466691 
7.5961597 ?7.94016251 7.0300208 7.1459586 7.5117067 
6.7371893 6.279987 ?.1?53366 5.8861312 7.1029201 
7.4439089 7.3549593 7?.3795895 6. 6589738 38.1819427 
7.03492831 7.9022379 6.0655066 6.?042447 6.375564 

6.6142326 6.4826748 8.2709712 7.0968585 6.6757299 
7.0706347 7.6922783 7.0490228 7.246886 6.7395424 
7?.5783224 7?7.662213 6.7378571 6.89953542 7:.0892597 
7?.5965855 6. 8087996 7.4608264 7.1352464 6. 2622965 
6.619869%6 7.0835152 6.8764388 7.8195022 6.5812235 


2, Generar 50 números aleatorios que se distribuyan según una N(O 


SOLUCION 


CUANTOS NUMEROS QUIERE GENERAR? 50 
INTRODUZCA LA MEDIA Y LA DESVIACION TIPICA 


MEDIA M=?0 


DESVIACION TIPICA S =? 1 


-.63255586 .61668242 -.814268493 -. 83837228 -=.1732805 
-.84133195 -1.669553 2.2103425 .3ó6195312 1.0441901 
«21127693 1.0127499 1.29234575 -. 90643906 -.35146614 
-.11083763 . 44154511 -.3729068 -.53746971 . 152989251 
. 12652848 -1.0349007 -.352642127 -.85474723 -.8312799 
-.57210814 .0019916678 . 66555566 1.3884325 . 33578325 
. 36808161 1.5411137 -.39402189 . 0DOOP0860212 -.10783895 
-.40776067 1.6416695 -. 23188733 -2.1054575 .6392451 
-1.1841809 23317569 -.30446156 -1.9975565 1.4487395 
-.17541241 -1.8845386 1.002147 -.13925686 1.2626609 


LANZAMIENTO DE UN DADO 


introducción: 


Este programa sirve para simular el experimento aleatorio consisten 
te en el lanzamiento N veces de un dado anotando el resultado obtenido en 
la cara superior. Posteriormente realiza un recuento para expresar las fre 
cuencias absolutas y relativas de cada uno de los resultados posibles. 

Si el número de lanzamientos realizados fuese suficientemente gran- 
de la frecuencia relativa de cada suceso tendería a 1/6 que es la probabi- 


lidad de cada uno de los sucesos. 


listado del programa: 


10 REM FX N0000N0N000OOOROIOIEIIEIO ETORRI 


20 REM 

30 REM SIMULACION DEL LANZAMIENTO DE UN DADO 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 


70 REM IIA 
100 PRINT 

110 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 
120 INPUT N 

130 PRINT 

140 RANDOMIZE 

150 FOR I=1 TO N 

160 A=INT(RNDXG6+1) 

170 PRINT A, 

180 ON A GOTO 190.200.210,220.230,240 

190 F(1)=F(1)+1:GOTO 250 

200 F(2)=F(2)+1:GOTO 250 

210 F(3)=F(3)+1:G0TO 250 

220 F(4)=F(4)+1:G0TO 250 

230 F(5)=F(5)+1:G0TO 250 

240 F(6)=F(6)1+1:GOTO 250 

250 NEXT 1 

260 PRINT 

270 PRINT "SUCESO". "FREC.ABSOLUT","FREC.RELAT" 
280 PRINT "IIA". IICA AAA 
290 FOR J=1 TO 6 

300 PRINT "CARA"3J, F(J),F(J)/N 

310 NEXT J 

320 END 
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ejercicios resueltos: 


y lanza 200 veces un dado equilibrado, calcular las frecuencias 
absolutas y relativas de cada uno de los seis resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =7? 200 


1 3 1 2 2 3 4 5 2 6 
1 3 3 1 5 S 3 Ya 1 S 
5 4 =) 6 =) 4 4 2 1 4 
6 6 2 4 4 2 1 5 1 4 
1 6 q 2 =) 1 1 3 é =) 
=] 2 ó S 2 2 1 2 =) 4 
3 2 5 =) 2 3 4 5 1 3 
6 5 4 1 S 5 é 6 2 1 
4 4 5 1 2 4 2 1 4 5 
6 S =) S =) 2 4 6 é 3 
2 3 5 1 4 =) 4 3 S S 
6 4 E] 3 1 E] 2 = 3 4 
3 5 2 1 = 3 1 q 1 é 
3 = 3 é pa 4 3 2 5 5 
3 1 é 4 Z 3 4 Ss 5 1 
6 3 5 é S 6 1 2 1 ó 
2 1 5 3 2 4 2 3 1 5 
6 4 6 3 4 S 3 4 2 4 
3 1 3 1 5 3 = 2 3 3 
4 3 1 S 5 4 1 1 1 3 

SUCESO  FREC.ABSOLUT FREC.RELAT 

AAA AAA FAA 

CARA 1 34 .17 

CARA 2 29 .145 

CARA 3 33 .165 

CARA 4 32 «16 

CARA 5 35 «175 

CARA 6 37 «185 


Less lanza 100 veces un dado equilibrado, calcular las frecuencias ab 


solutas y relativas de cada uno de los seis resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 100 


DGAONNAOD re 
AAA 
+= yrrrgdno 
BGNNANNNN Or 
rr NOoNrNPFOoO E 
bu rr roo 
02305 Wdrpnoun 
DONrSrpsouosd 
SUNBIADAdA 
500 04W4daNarr 


204 SIMULACION DE EXPERIMENTOS ALEATORIOS 


SUCESO  FREC. ABSOLUT FREC.RELAT 
AAA AAA AAA 
CARA 1 22 . 22 
CARA 2 18 .18 
CARA 3 15 .15 
CARA 4 13 «13 
CARA 5 13 .13 
CARA é 19 .19 


LANZAMIENTO DE DOS DADOS (SUMA DE PUNTOS) 


introducción: 


te 


Este programa sirve para simular el experimento aleatorio consisten 


en el lanzamiento N veces de dos dados, anotando los resultados obteni- 


dos en las dos caras superiores, este resultado se expresa como un par or- 


denado de manera que el primer elemento del par es el resultado del primer 


dado y el segundo elemento del par es el resultado del segundo dado. 


El programa además efectua el recuento para expresar las frecuencias 


absolutas y relativas de cada uno de los valores de la suma de los puntos 


obtenidos en las caras de los dados. 


Obsérvese que si el número de lanzamientos es muy grande la mayor 


frecuencia relativa corresponderá a la suma 7 que se puede obtener de las 
siguientes formas: (1,6), (2,5), (3,4), (4,3), (5,2), (6,1), en cambio las 


menores frecuencias relativas corresponderán a la suma 2 y a la suma 12 


que solo se pueden obtener de una forma (1,1), (6,6). 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
105 
110 
120 
130 
140 
150 
160 
170 


REM IIA IAAF II RETO FIORENTINA AAA 
REM 


REM SIMULACION DEL LANZAMIENTO DE DOS DADOS 

REM 

REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
REM 

REM DE LA SUMA DE LOS PUNTOS DE LAS CARAS 

REM 


REM 2094429090209 
PRINT 
DIM F(12) 
RANDOMIZE 
PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 
INPUT N 
PRINT 
FOR I=1 TON 
A=INT(RNDXG6+1) 
B=INT(RNDX6+1) 


206 SIMULACION DE EXPERIMENTOS ALEATORIOS 


180 PRINT "("5A5%,"3B3")", 

190 S=A+B 

200 FOR J=2 TO 12 

210 IF S=J THEN GOTO 230 

220 NEXT J 

230 F(J)=F(J)+1 

240 GOTO 250 

250 NEXT 1 

260 PRINT 

270 PRINT "SUMA", "FREC.ABSOLUT", "FREC.RELAT" 
280 PRINTS EIA AAA 
290 FOR J=2 TO 12 

300 PRINT J,F(J),F(J)/N 

310 NEXT J 

320 END 


ejercicios resueltos: 


1. Se lanzan 100 veces dos dados y se suman los valores 


cada una de sus caras. Calcular las frecuencias absolutas y 


cada uno de los resultados posibles. 
SOLUCION: 


Zz 
1] 
J 

h 

o 

o 


CUANTOS LANZAMIENTOS DESEA REALIZAR 


RrObhhbdradnaddrbobuomnnN os 
-r-0206 004 Ud rnNnAaNaAN adan. 
DONA rNdadrrnddo nn o 0-0 
o01d0rao0NrNFadR O Aur Nos 
A AAN ADON rro qduN-r 0 
GO rGb brocas uwoadyasropadnN 


SUMA FREC. ABSOLUT FREC.RELAT 
XX XA ANNAN HAHAHAHA AAA 

2 3 .03 

3 5 .05 

4 12 «12 

5 14 .14 

ó 16 .16 

2 10 .1 

8 13 «43 

9 9 . 09 

10 10 .1 

11 6 .06 


NOODDLDAPRNOr Amada NdnN au La 


0Nr-r bddrguasdrrndodono 


A 


obtenidos en 


relativas de 


40d her. - AO P?-NDbrNnoa a 
NNradraNnNrNoNr0U00oAaAbdouoN 


LANZAMIENTO DE TRES DADOS (SUMA DE PUNTOS) 


introducción: 


Este programa sirve para simular el experimento aleatorio consisten 
te en el lanzamiento de N veces 3 dados, el resultado se expresa en forma 
de terna ordenada. Además se efectua el cálculo de las frecuencias absolu- 
tas y relativas del suceso suma de los puntos obtenidos en las caras de los 


tres dados, esta suma oscila de 3 (1,1,1) a 18 (6.6.6). 


listado del programa: 


10 REM 2440942292922 29N22920000ORRRRRODRRRRRRRRDOORAROREAC 
20 REM 


30 REM SIMULACION DEL LANZAMIENTO DE TRES DADOS 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 

70 REM DE LA SUMA DE LOS PUNTOS DE LAS CARAS 

£0 REM 


90 REM 2994220999090 IRIARTE TIRANA 
100 PRINT 

105 DIM F(18) 

110 RANDOMIZE 

120 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 
130 INPUT N 

140 PRINT 

150 FOR I=1 TO N 

160 A=INT(RNDX6+1) 

170 B=INT(RNDXG6+1) 

175 C=INT(RNDXG6+1) 

180 PRINT "("3A3","3B3","3C53")", 

190 S=A+B+C 

200 FOR J=3 TO 18 

210 IF S=J THEN GOTO 230 

220 NEXT J 

230 F(J)=F(J)+1 

240 GOTO 250 

250 NEXT I 

260 PRINT 

270 PRINT "SUMA", "FREC.ABSOLUT","FREC.RELAT" 
280 PRINT  "AXXAX" ISORA IIIAIAIIAAAA 


208 SIMULACION DE EXPERIMENTOS ALEATORIOS 


290 FOR J=3 TO 18 

300 PRINT — J,F(J),F(J)/N 
310 NEXT J 

320 END 


ejercicios resueltos: 


E Se lanzan 60 veces tres dados equilibrados. Se pide: expresar el re- 
sultado obtenido, y calcular las frecuencias absolutas y relativas de cada 
uno de los sucesos consistentes en la suma de los puntos obtenidos en las 
caras de los tres dados. 

SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 60 
(4. 1.1) 3 O iíbsis13 LiEsis 3» 6 BS) 
LA 0 € (ds Ae (7. Dn 41 iS. ra 2) 
(4.5.8) (2.2 3) € PE TT Li. $. $) tdi.) 
A (5,.5,4) ¡ás ld. 2) Lis» 41 iS. 
cd. 2, E) (2.6. 31 Lis: Be dB 2 (4, 2.6) (11, 5x1 1 
(84,5. 1.) Lás la 40 ¡As Ae € PE E E E 
(MM. Eo 5) (123.1. E) (2,6,4) Le Ne 1) tas Ex 41 
LA e do A Bs d sr 6) ida E E - E TE 
llei. 5) EIN AE E PRE ¡ás B.« 1) bs xn 3 
(dnde 31 (6 23 (S.L. 6) (4.232.113 3 ES 
(8. +, 2) (N.D 4 (4,6,4) tha ds de) (6: . E) 
3 A (Ad... 3) ¡Es Bs 3 (3D. 3. 3) (5.3.4) 
SUMA FREC. ABSOLUT FREC.RELAT 
AA FOCA: FAA 

3 O O 

4 3 .05 

5 2 033333333 

6 3 .05 

? 5 ¿083333333 

8 5 083333333 

9 7 . 11666667 

10 6 .l 

11 5 083333333 

12 12 .2 

13 4 066666667 

14 6 al 

15 «d 016666667 

16 1 016666667 

17 O 0 

18 O o 


LANZAMIENTO DE UNA MONEDA 


introducción: 


ces 


Este programa sirve para simular el lanzamiento de una moneda N ve- 
expresando los resultados de CARA y CRUZ según corresponda, posterior- 


mente realiza un recuento para calcular las frecuencias absolutas y relati 


vas 


de 


de cada uno de los dos sucesos. 


Si el número de lanzamientos es suficientemente grande, la frecuencia 
cada suceso tiende a 0,5 que es su probabililidad. 


listado del programa: 


10 
20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM IRRADIA 
REM 


REM SIMULACION DEL LANZAMIENTO DE UNA MONEDA 

REM 

REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
REM 


REM III III 
PRINT 

RANDOMIZE 

c=0 

x=0 

PRINT 

PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N=";5 
INPUT N 

PRINT 

FOR I=1 TO N 


A=INT (RND+.5) 
IF A=0 THEN 240 
PRINT "CARA", 
c=C+1 

GOTO 260 

PRINT "CRUZ", 
X=X+1 

NEXT 1 

PRINT 


PRINT "SUCESO","FREC.ABSOL","FREC.RELAT" 
PRINT "XXXIX", "ARHAHARAAACICAR SN," AAAAAAAARA 
PRINT "CARA",C,C/N 

PRINT "CRUZ".X.X/N 

END 


210 SIMULACION DE EXPERIMENTOS ALEATORIOS 


ejercicios resueltos: 


1. Simular 200 lanzamientos de una moneda y calcular las frecuencias 
absolutas y relativas de cada uno de los dos resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=? 200 


cruz CRUZ crUZzZ crRUzZ crRUZ crRUZ CARA CARA CARA CARA 
cRrUZ CARA crRUzZ crRUZ CARA cRrRUZ crRUzZ CARA CARA CARA 
CARA CARA CARA CRUZ cRrRUZ CARA CARA crRUzZ CARA CRUZ 
cruz CARA CRUZ CcrRUzZ CARA cruz CARA CARA CRUZ CARA 
CARA CARA CARA crRUZ CARA CARA CARA CARA CRUZ crRUzZ 
CARA cruz CARA crRUZ CRUZ CARA crRUZ CARA CARA crRUZ 
cruz CARA CARA CRUZ CARA CARA CARA CRUZ crRUZ CARA 
CARA CcrRUZ CARA crRUZ CARA CcRrRUZ CARA CARA CARA CARA 
CcrUZzZ CARA CARA CARA crRUZ CARA cruz CARA CARA CARA 
cruz crRUZ cruz crRUZ crRUZ CRUZ CcRrRUZ cruz CARA CARA 
CRUZ crRUZ cruz CRUZ cruz crRUzZ cruz CARA crRUZ crRUzZ 
CARA cruz CRUZ CARA CARA CARA CcrRUZ CARA cruz cruz 
CARA CARA CRUZ CcRrUZz CRUZ CARA CARA cruz CRUZ CARA 
CARA cruz CcrRUZ crRUZ CARA crRUZ CARA cruz crRUzZ CARA 
cruz CRUZ crRUZ CARA CARA CARA CcrRUzZ CARA CARA CARA 
CARA cruz cruz CARA CARA cruz CARA CARA crUZ crRUZ 
CcrRUZ CcrRUZ CARA CARA CRUZ crRUZ CARA CARA crRUZ CARA 
crUZzZ crRUZ CcrRUZ crRUZ CARA CRUZ CARA CARA CARA CARA 
cruz cruz CARA CARA CARA CARA CRUZ cRrRUZ cruz CARA 
CRUZ cruz crUzZ crRUZ crUZ CRUZ crRUzZ crRUzZ CARA CRUZ 
SUCESO FREC. ABSOL FREC.RELAT 

AAA AAA IIA 

CARA 96 . 48 
CcrUZzZ 104 .52 


Divide 100 lanzamientos de una moneda y calcular las frecuencias 
absolutas y relativas de cada uno de los dos resultados posibles. 
SOLUCION : 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=”? 100 


cruz CARA CARA CARA CARA CARA CARA crRUZ crRUZ crRUZ 
CARA crUzZ CARA CARA CARA crUZ CRUZ cRrRUZ crRUZ CRUZ 
CARA crRUzZ CARA crRUZ crRUZ CRUZ crRUZ cruz crUZ CARA 
cruz cruz CARA cruz crRUZ CARA CARA CARA CARA CARA 
CARA crRUZ crRUZ crRUZ cruz CARA crRUZ CARA CARA CARA 
CARA CARA crRUZ CARA CRUZ CARA cruz CARA crRUZ CRUZ 
CRUZ CARA CARA CARA CRUZ CARA cRrRUZ crUZ CARA CARA 
CARA crUZ CARA CcrUzZ CARA cruz CRUZ CARA CARA crUZ 
CARA CARA CARA crRUZzZ CARA CARA CARA cruz CARA CARA 
cruz cruz CARA CARA CARA crRUZ CARA crUZ CRUZ cruz 
SUCESO FREC. ABSOL FREC.RELAT 

KA HAAA AAA AACHEN 

CARA 52 . 32 


CRUZ 48 .48 


LANZAMIENTO DE DOS MONEDAS 


introducción: 


Este programa sirve para simular el lanzamiento de N veces dos mone 


das expresando los resultados en forma de par ordenado. Posteriormente cal 


cula las frecuencias absolutas y relativas de cada uno de los resultados 


posibles. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 


REM IRRRESRROOOOOAROOOIOAI OSO OOOO III OO III OOOO IAN ARA 


REM 
REM 
REM 
REM 
REM 


CON RECUENTO DE FRECUENCIAS AESOLUTAS 


SIMULACION DEL LANZAMIENTO DE DOS MONEDAS 


Y RELATIVAS 


REM IRRITANTE 


PRINT 


RANDOMIZE 


120 C(J)=0 

130 PRINT 

140 FPRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR 
150 INPUT N 


N="3 


160 PRINT 

170 FOR I=1 TON 

180 A=INT(RNDX49+1) 

190 IF A=1 PRINT "(C,C)", 

200 IF A=2 PRINT "(C,X)", 

210 IF A=3 PRINT "(X,C)", 

220 IF A=9 PRINT "(X,X)", 

230 FOR J=1 TO 4 

240 IF A=J THEN GOTO 260 

2530 NEXT J 

260 C(J)=C(J)+1 

270 NEXT 1 

280 PRINT 

290 PRINT " SUCESO", "FREC.ABSOL","FREC.RELAT" 
300 PRINT * IRRRRARAE  RORRROROARA  IRRIAIOICIAAAA 
310 PRINT "CARA-CARA" ,C(1), C(1)/N 

320 PRINT "CARA-CRUZ" ,C(2), C(2)/N 

330 PRINT "CRUZ-CARA" ,C(3), C(3)/N 

340 PRINT "CRUZ-CRUZ" ,C(49), C(9)/N 


350 


END 


212 


ejercicios resueltos: 


SIMULACION DE EXPERIMENTOS ALEATORIOS 


Losiasian 200 lanzamientos de dos monedas, calculando las frecuencias 


absolutas y relativas de cada uno de los resultados posibles. 


SOLUCION 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=”? 200 
(C0,X) (x,C) (C,4X) (Xx,C) (x.C) (XX) 
(0, X (x,C) (C,C) (C,X) (C,C) (x,C) 
(C,.X) (x,X) (C,C) Xx,C) (C.C) (x,C) 
(x,C) (C.X) (X.%) (40) (C,*X) (C.X) 
(x,C) (x,C0) (0,4%) (C,C) (Xx,C) (C,C) 
(x,X) (x,C) (XX) (Cc,C) (X,C0) (C0,X) 
(X4,X) (Xx,X) (0,4%) (C,C) (C,C) (C,X) 
(C,C) (C.C) (Xx.C) (x,C) (x,.C) (C,Xx) 
(X.X) (X,X) (C,%X) (x,C) (Xx.X) (C.C) 
(C,X) (C4X) (C,C) (X,X) (CC) (C,X) 
(X,C) (C,X) (C,C) (C,C) (%,X) (C.C) 
(x,C) (C0,X) (C,C) (X,X) (C,C) (C,C) 
(%.5) (x,C) (4) (x,C) (X.%) (x.X) 
(C,.C) (1%) (C,C) (C,C) (C,C) (C,X) 
(C,X) (C,C) (CC) (C,C) (X,%) (C,4X) 
(C,C) (XX (C0,X) (C,C) (x,C0) (X,X) 
(C.X) (CC) (C,C) (x,X) (x.C) (C,C) 
(x,C) (XX) (X.%) (X.X) (C.%) (x,C) 
(C0,C) (Xx,C0) (4) (4%) (C,C) (x,X) 
(X,XM) (C0,X) (C0,%) (X,X) (x,C) (x,C) 
SUCESO FREC. AEBESOL FREC.RELAT 
HINA OOOO A OCIO 
CARA-CARA él 305 

CARA-CRUZ 43 .215 

CRUZ-CARA 47 2359 

CRUZ-CRUZ 49 .245 


(C,C) 
(x,C) 
(C,C) 
(C,*%) 
(C,C) 
(C.C) 
(X,X) 
(Xx.X) 
(Xx.C) 
(C.X) 
(C,C) 
(C,C) 
(X,X) 
(x,C0) 
(x,C) 
(C,X) 
(C,C) 


(C.C) 


(Xx,C0) 
(C0,X) 


(C,C) 
(X,X) 
(Xx,X) 
(C0.%) 
(C,4X) 
(X.X) 
(C,C) 
(C.C) 
(C,C) 
(C,X) 
(C0,X) 
(x,C) 
(C.C) 
(C,C) 
(C,C) 
(C,C) 
(X.X) 
(C.*%) 
(X,C0) 
(C,X) 


(XX) 
(x,C) 
(C,X) 
(X.X) 
(XxX) 
(x,C) 
(Xx,X) 
(x,C) 
(C.C) 
(X,C0) 
(C,C) 
(x,C) 
(X.X) 
(04%) 
(C,C) 
(x,C) 
(C,C) 
(C.X) 
(C,C) 
(x,C) 


(C,X) 
“(X.C0) 
(C,X) 
(X.X) 
(Xx,C) 
(C,C) 
(X,X) 
(X.X) 
(C.C) 
(X4C) 
(XX) 
(C,C) 
(C,C) 
(X.X) 
(C,C) 
(X.X) 
(C,C) 
(x.4C) 
(C,X) 
(X,%) 


E Simular 40 lanzamientos de dos monedas, calculando las frecuencias 


absolutas y relativas de cada uno de los resultados posibles. 


SOLUCION 


CUANTOS LANZAMIENTOS DESEA REALIZAR 


(C.4A» (X,X) 


(CC) 
(CC) 
(Xx,C) 


(XX) 
(XX) 
(C0,X) 


(x,C) (C,C) 
(C,C) (CC) 
(C0,%) (C,C) 
(X,X) (X,C) 


N=? 40 

(C.X) (0.6) 
(C0.X) (X. 0) 
(X.0) (0. X) 
(X.X) (0,X) 


SUCESO 

ION 
CARA-CARA 
CARA-CRUZ 
CRUZ-CARA 
CRUZ=CRUZ 


FREC. ABSOL 
ES 
12 

10 

8 

10 


FREC.RELAT 
ES 


(X,2%) 
(XX) 
(XX) 
(Xx,C) 


(Cc.C) 
(X,X) 
(C,%X) 
(xX,C) 


(x.C) 
(C.C) 
(C,C) 
(C,X) 


(C,C) 
(C.X) 
(X.X) 
(C,C) 


EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO 
DE CARTAS DE UNA BARAJA 


introducción: 


Este programa sirve parasimular extracciones sucesivas con reempla- 
zamiento de cartas de una baraja española. Entre las lineas 119 y 250 se 
realiza la composición de la baraja, siendo las lineas siguientes para si- 
mular la extracción con reemplazamiento. Obsérvese que al tratarse de ex- 


tracciones con reemplazamiento pueden obtenerse cartas repetidas. 


listado del programa: 


10 REM RRA ORIO III IRIS III A 
20 REM 


30 REM SIMULACION DE EXTRACCIONES SUCESIVAS 

40 REM 

50 REM CON REEMPLAZAMIENTO DE CARTAS DE UNA BARAJA ESPANOLA 
60 REM 


70 REM III III RRA 
100 PRINT 

110 RANDOMIZE 

119 REM - COMPOSICION DE LA BARAJA - 

120 DIM N$(10),P$(4),C$(10,4) 

130 FOR I=1 TO 10 

140 READ Ns$(1) 

150 NEXT I 

160 FOR J=1 TO 4 

170 READ P$(J) 

180 NEXT J 

190 FOR I=1 TO 10 

200 FOR J=1 TO 4 

210 CS$(1,J)=N$(1)+" DE "+PS$(J) 

220 NEXT J 

230 NEXT 1 

240 DATA AS,DOS, TRES, CUATRO, CINCO, SEIS, SIETE,SOTA, CABALLO, REY 
250 DATA OROS., COPAS, ESPADAS, BASTOS 

259 REM - EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO - 
260 PRINT "CUANTAS CARTAS DESEA EXTRAER L =";5 

270 INPUT L 

280 PRINT 

290 FOR K=1 TO L 

300 I=INT(RNDX10+1) 


214 SIMULACION DE EXPERIMENTOS ALEATORIOS 


310 J=INT(RNDX4+1) 
320 PRINT C$(1,J) 
330 NEXT K 

340 END 


ejercicios resueltos: 


AA la extracción con reemplazamiento de 15 cartas de una bara- 
ja española. 
SOLUCION : 


CUANTAS CARTAS DESEA EXTRAER L =? 15 


CABALLO DE COPAS 
DOS DE BASTOS 
REY DE OROS 

TRES DE EASTOS 
DOS DE ESPADAS 
SOTA DE OROS 
TRES DE ESPADAS 
TRES DE OROS 
CINCO DE ESPADAS 
TRES DE COPAS 
TRES DE COPAS 
SIETE DE BASTOS 
REY DE COPAS 
SEIS DE OROS 
TRES DE OROS 


EN Simúlese la extracción con reemplazamiento de 7 cartas de una bara- 
ja española. 
SOLUCION: 


CUANTAS CARTAS DESEA EXTRAER L =? ? 


DOS DE EASTOS 
SEIS DE BASTOS 
SEIS DE BASTOS 
TRES DE BASTOS 
TRES DE COPAS 
DOS DE COPAS 
REY DE OROS 


3. Simúlese la extracción con reemplazamiento de 5 cartas de una bara- 
ja española. 
SOLUCION : 


CUANTAS CARTAS DESEA EXTRAER L =? 5 


TRES DE OROS 
AS” DE BASTOS 
SOTA DE COPAS 
SOTA DE BASTOS 
SEIS DE ESPADAS 


XTRACCIONES SUCESIVAS SIN REEMPLAZAMIENTO 
DE CARTAS DE UNA BARAJA 


introducción: 


Este programa sirve para simular extracciones sucesivas sin reempla 


zamiento de cartas de una baraja. En esencia es idéntico al anterior, uni- 


camente hay que tener en cuenta en la linea 320 que si una carta ha sido 


ya 


extraida ha de ser apartada pues ya no puede ser extraida nuevamente. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
119 
120 
130 
140 
150 
160 
170 
150 
190 
200 
z10 
220 
230 
240 
250 
259 
260 
270 
280 
290 
300 
310 


TT ERE ES 
REM 


REM SIMULACION DE EXTRACCIONES SUCESIVAS 

REM » 

REM SIN REEMPLAZAMIENTO DE CARTAS DE UNA EARAJA ESPANOLA 
REM 


REM ARRIOLA MARA RANA 
PRINT 

RANDOMIZE 

REM - COMPOSICION DE LA BARAJA 

DIM N$(10),P$5(9),C$(10,4) 

FOR I=1 TO 10 

READ N$(I) 

NEXT 1 

FOR J=1 TO 4 

READ P$(J) 

NEXT J 

FOR I=1 TO 10 

FOR J=1 TO 4 

C$(1,J)=NS(1)+" DE "+PS5(J) 

NEXT J 

NEXT 1 

DATA AS.DOS, TRES, CUATRO, CINCO, SEIS, SIETE,SOTA, CABALLO, REY 


DATA OROS, COPAS, ESPADAS, EASTOS 

REM - EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO - 
PRINT "CUANTAS CARTAS DESEA EXTRAER L ="; 

INPUT L 

PRINT 


FOR K=1 TO L 
I=INT(RNDX1O+1) 
J=INT(RNDX4+1) 


216 SIMULACION DE EXPERIMENTOS ALEATORIOS 


322 IF C$(1,J)="" THEN GOTO 300 
330 PRINT C$(1,J) 

340 C$(I,J)="" 

250 NEXT K 

3ó60 END 


ejercicios resueltos: 


1. Simúlese la extracción sin reemplazamiento de 18 cartas de una bara 
ja española. 


SOLUCION : 
UANTAS CARTAS DESEA EXTRAER L =? 18 


CABALLO DE OROS 
REY DE ESPADAS 
CUATRO DE OROS 
SOTA DE COPAS 
AS DE COPAS 
SOTA DE ESPADAS 
CABALLO DE ESPADAS 
SIETE DE OROS 
TRES DE BASTOS 
CINCO DE ESPADAS 
AS DE ESPADAS 
SIETE DE COPAS 
TRES DE COROS 
SEIS DE BASTOS 
SEIS DE OROS 
SOTA DE OROS 

DOS DE ESPADAS 
DOS DE OROS 


2. Simúlese la extracción sin reemplazamiento de 10 cartas de una bara 
ja española. 


SOLUCION : 


CUANTAS CARTAS DESEA EXTRAER L =? 10 


CINCO DE COPAS 
AS DE ESPADAS 
SOTA DE OROS 

REY DE ESPADAS 
DOS DE OROS 
CINCO DE BASTOS 
CUATRO DE OROS 
AS DE BASTOS 
CINCO DE ESPADAS 
DOS DE COPAS 


MEDIDAS DE CENTRALIZACION, DISPERSION Y 
FORMA DE DISTRIBUCIONES UNIDIMENSIONALES 
DE DATOS NO AGRUPADOS 


introducción: 


Este programa sirve para calcular medidas de centralización, disper- 
sión y de forma de una distribución unidimensional de datos no agrupados. 

En la linea 210 se introducen en una variable subindicada X(I) cada 
uno de los valores de la variable estadística. Si algún X(I) es igual a ce 
ro entonces la media armónica no está definida y la media geométrica es nu 
14, 

Como el coeficiente de variación de una distribución estadística 
unidimensional está definido como s/x, entonces cuando x tiende a cero el 
coeficiente de variación crece indefinidamente, de manera que se trata, en 
ese caso de una medida poco fiable. 

Para valores muy próximos a cero del coeficiente de asimetría de Fi 
sher, el resultado del programa dará sesgada hacia la derecha o hacia la 
izquierda según que sea positivo o negativo, si bien se trata de distribu- 


ciones practicamente insesgadas. 


listado del programa: 


10 REM IRIS IAAA 
20 REM 

30 REM MEDIDAS DE CENTRALIZACION 

40 REM 

50 REM DE DISPERSION Y DE FORMA 

60 REM 

70 REM DISTRIBUCIONES UNIDIMENSIONALES DE DATOS NO AGRUPADOS 

S0 REM 

9 0 REM RIRS IIIAAA 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE DATOS"; 

130 INPUT N 

135 PRINT 

140 DIM X(N),S(10) 

150 FOR J=1 TO 9 

160 S(J)=0 

170 NEXT J 


218 


180 
189 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
349 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
499 
500 
s10 
520 
530 
5490 
550 
560 
570 
=j=10) 
590 
600 
610 
620 
630 
440 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


ESTADISTICA DESCRIPTIVA 


S(10)=1 

REM-ENTRADA DE DATOS- 

FOR I=1 TO N 

PRINT "VALOR DE LA VARIABLE NUMERO "531; 
INPUT X(1) 

S(1)=S(1)+X(1) 
S(2)=S(2)+Xx(1)72 

S (3) =S(3)+X(1)3 
S(4)=S (94) +X(1)4 

NEXT I 

M=S (1) /N 

FOR I=1 TO N 
S(6)=S1(6) + (X(1)-M)2 

S (7)=S (2) + (X(1)-M)*3 

S (8)=S (8)+ (X(1)-M)79 

S (5) =5(5)+1/X(1) , 
S(9)=S (9) +ABS(X(I)-M) 
S(10)=S(10)XX(1) 

NEXT 1 

REM - CALCULO DE PARAMETROS - 


G=S(10)”(1/N) 
H=N/S (5) 
Q=SOAR (S (2) /N) 
V=S(6)/N 
D=S(9)/N 


Al=M 


A2=S (2) /N 
A3=S (3) /N 
A49=S (9)/N 
M2=S (6) /N 
M3=S (7) /N 
M4=S (3) /N 
C=SQR (V) /M 
Yi=M3/U" (3/2) 
Y2=M4/V*2 


REM —- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


SALIDA DE RESULTADOS - 


1YIANAAAAAAARKA MEDIDAS DE CENTRALIZACION ARA KAAAA 


"MEDIA ARITMETICA ="3M 
"MEDIA GEOMETRICA =":G 
"MEDIA ARMONICA = 


PRINT "MEDIA CUADRATICA 

PRINT 

PRINT "AKAL KAXKAKXALAR MEDIDAS DE DISPERSION AXKXHXAKIAKKXK AA " 
PRINT "VARIANZA ="3v 
PRINT "DESVIACION TIPICA ="3SQR(V) 
PRINT "DESVIACION MEDIA ="; 
PRINT "MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN =";A1 
PRINT "MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN ="3A2 
PRINT "MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN ="3A3 
PRINT "MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN ="5A49 
PRINT "MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA ="30 
PRINT "MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA ="3M2 
PRINT "MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA ="3M3 
PRINT "MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA ="3M4 
PRINT "COEFICIENTE DE VARIACION ="53C 
PRINT 

PRINT O "KXXXHAKARA AXE MEDIDAS DE FORMA IRRRRROOROOIOOIAA" 
PRINT "COEFICIENTE DE ASIMETRIA DE FISHER ="3Y1 


IFY1>0 THEN PRINT 
IFY1<0 THEN PRINT 


IFYi=0 THEN PRINT "(DISTRIBUCION  INSESGADA)" 


PRINT 


"COEFICIENTE DE CURTOSIS O APLASTAMIENTO 


"(DISTRIBUCION SESGADA A LA DERECHA) " 
"(DISTRIBUCION SESGADA A LA IZQUIERDA)" 


"3Y2 
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770 IF Y2 >3 THEN PRINT "(DISTRIBUCION LEPTOCURTICA)" 
2730 IF Y2 <3 THEN PRINT "(DISTRIBUCION PLANICURTICA)" 
790 IF Y2 =3 THEN PRINT "(DISTRIBUCION MESOCURTICA)" 
2800 END 


ejercicios resueltos: 


1... número de individuos muertos por cólera en un determinado pais 
por año en el trascurso de 11 meses, han sido: 
2 La y By 12, 3, ly, 8, 12: 127 de 
Calcular: 
a) Medias aritmética, geométrica, armónica y cuadrática. 
b) Varianza, desviación media, momentos de 1%, 2%, 3% y 4” orden respecto 
al origen y respecto a la media y coeficiente de variación. 
c) Coeficientes de asimetría y curtosis. 
SOLUCION: 


NUMERO DE DATOS? 11 


VALOR DE LA VARIABLE NUMERO 12 
VALOR DE LA VARIABLE NUMERO 2 7 12 
VALOR DE LA VARIAELE NUMERO 375 
VALOR DE LA VARIABLE NUMERO 4 ? 8 
VALOR DE LA VARIABLE NUMERO >? de 
VALOR DE LA VARIABLE NUMERO 6”? 3 
VALOR DE LA VARIAELE NUMERO 2 7 
VALOR DE LA VARIABLE NUMERO g ? 8 
VALOR DE LA VARIABLE NUMERO E 
VALOR DE LA VARIABLE NUMERO 10 ? 12 
VALOR DE LA VARIABLE NUMERO 11 * 3 


IAAKAAK AAA MEDIDAS DE CENTRALIZACION AXXXAXXKAXXAXX 


MEDIA ARITMETICA = 7.6363636 
MEDIA GEOMETRICA = 5.9621665 
MEDIA ARMONICA = 4.5351657 
MEDIA CUADRATICA = 9.0453403 


HAHAHAHA AAEAKARAR MEDIDAS DE DISPERSION IICA 


VARIANZA = 23.504132 
DESVIACION MEDIA = 4.214376 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 7.63é63636 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 81.818182 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 1028.7273 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 14067.273 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 23.504132 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 44.961683 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 1069.6425 
COEFICIENTE DE VARIACION = ¿63487103 


FAA AAA MEDIDAS DE FORMA AXIS 


COEFICIENTE DE ASIMETRIA DE FISHER = .39457197 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 1.9362 


(DISTRIBUCION PLANICURTICA) 
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2. Se ha realizado la determinación del contenido de Calcio (Ca) en la 


sangre de 25 pacientes, obteniendose los siguientes resultados: 


8.7 9,3 10.1 9.2 9.1 9.3 9.4 8.7 8.8 8.7 9.2 

10,2 9.5 9.6 Y. 1 dad 9.3 8.8 9.5 9.8 S.L 9.2 9.6 
8.4 

Calcular: 


a) Medias aritmética, geométrica, armónica y cuadrática. 

b) Varianza, desviación media, momentos de 1%, 2”, 3” y 4” orden respecto 
al origen y respecto a la media y coeficiente de variación. 

c) Coeficiente de asimetría y de curtosis. 

SOLUCION: 


NUMERO DE DATOS? 25 


VALOR DE LA VARIABLE NUMERO 1P8.7? 
VALOR DE LA VARIABLE NUMERO 2? 9.3 
VALOR DE LA VARIABLE NUMERO 3”? 10.1 
VALOR DE LA VARIAELE NUMERO 4? 9.2 
VALOR DE LA VARIABLE NUMERO 5 ?9.1l 
VALOR DE LA VARIABLE NUMERO 6 ? 9.3 
VALOR DE LA VARIABLE NUMERO 7 ?9.4 
VALOR DE LA VARIABLE NUMERO 8 ? 8.2? 
VALOR DE LA VARIABLE NUMERO 9 ? 8.82 
VALOR DE LA VARIABLE NUMERO 10 ? 8.7? 
VALOR DE LA VARIABLE NUMERO 11 Y 22 
VALOR DE LA VARIABLE NUMERO 12 2 8.3 
VALOR DE LA VARIAELE NUMERO 13? 10.2 
VALOR DE LA VARIABLE NUMERO 19 2 9.5 
VALOR DE LA VARIABLE NUMERO 15 ? 9.6 
VALOR DE LA VARIABLE NUMERO 1Óó ? 9,7 
VALOR DE LA VARIABLE NUMERO E A SS 
VALOR DE LA VARIABLE NUMERO 18 2 9.3 
VALOR DE LA VARIABLE NUMERO 19 ? 8.8 
VALOR DE LA VARIABLE NUMERO 20 ? 9.5 
VALOR DE LA VARIABLE NUMERO 21 ? 9.8 
VALOR DE LA VARIABLE NUMERO 22 ? Pel 
VALOR DE LA VARIABLE NUMERO 3 ?%2 
VALOR DE LA VARIABLE NUMERO 24 ? 9.6 
VALOR DE LA VARIAELE NUMERO 25 7? 8.4 


AAANAAKAAAAAAR MEDIDAS DE CENTRALIZACION IIOOIAIIAARA 


MEDIA ARITMETICA = 9.228 

MEDIA GEOMETRICA = 9.2160328 
MEDIA ARMONICA = 9,2040395 
MEDIA CUADRATICA = 9.2399351 


IOAAIAAAAAAAAA MEDIDAS DE DISPERSION IRAK 


VARIANZA = 220416 
DESVIACION MEDIA = .3ó6512 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 9.228 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 85.3764 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 791.92356 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 7364.3668 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = .220416 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = ¿0021431039 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = .12760652 


COEFICIENTE DE VARIACION = .050876119 
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o AA AA—A—ASASá 


OOOO MEDIDAS DE FORMA IRRRRROOOOOOAARRAR 


COEFICIENTE DE ASIMETRIA DE FISHER = .020709926 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.6265558 


(DISTRIBUCION PLANICURTICA) 


3. El número de accidentes mortales diarios en una gran ciudad en nueve 
dias -han sido: 6, 4, 8, 1; 5; E E de Lo Calcular: 
a) Medias aritmética, geométrica, armónica y cuadrática. 
b) Varianza, desviación media, momentos de 1%, 2%, 3% y 4% orden respecto 
al origen y respecto a la media y coeficiente de variación. 
Cc) Coeficientes de asimetría y de curtosis. 
SOLUCION: 


NUMERO DE DATOS? 9 


VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 


Y y 


NdONOoO0aqQNe- 
Y dy Uy Yyoy.yYy 
NNdaAadros0o 


HANA MEDIDAS DE CENTRALIZACION XK AAA 


MEDIA ARITMETICA = 4.3333333 
MEDIA GEOMETRICA = 3.6706077 
MEDIA ARMONICA = 2.9496684 
MEDIA CUADRATICA = 4.8648398 


IOMA MEDIDAS DE DISPERSION IRIS 


VARIANZA = 4,9888888289 
DESVIACION MEDIA = 1,9259259 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 4.3333333 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 23.666667 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 14947 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 983.66667 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 4.88282889 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 2.0730791 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 44.27?76296 


COEFICIENTE DE VARIACION = ¿51024992? 


IOCOOAAAAAAAAARAR MEDIDAS DE FORMA FIAR AAA 


COEFICIENTE DE ASIMETRIA DE FISHER = 19187086 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO. = 1.8533058 


(DISTRIBUCION PLANICURTICA) 


MEDIDAS DE CENTRALIZACION, DISPERSION Y 
FORMA DE DISTRIBUCIONES UNIDIMENSIONALES 
DE DATOS AGRUPADOS 


introducción: 


Este programa calcula las medidas de centralización, dispersión y 
de forma de una distribución unidimensional de datos agrupados. Los valor 
res de la variable estadística se introducen en una variable subindicada 
X(I) y los valores de las frecuencias absolutas se introducen en otra F(I) 
ambas en la linea 210. 

En todo lo demás el programa es análogo al anterior. 


listado del programa: 


10 REM RRRRRRRRRARRRDROROORRRRRRRRIROIIOOIIOIIIOI III II III IIA: 
20 REM 

30 REM MEDIDAS DE CENTRALIZACION 
40 REM 

50 REM DE DISPERSTION Y DE FORMA 
60 REM 

70 REM DISTRIBUCIONES  UNIDIMENSIONALES DE DATOS AGRUPADOS 
80 REM 

90 REM 2229920229290 AAA 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE DATOS”; 

130 INPUT L 

135 PRINT E 

140 DIM X(L),F(L)>),S(10) 

150 FOR J=0 TO 9 

160 S(J)=0 

170 NEXT J 

180 S(10)=1 

189 REM-ENTRADA DE DATOS- 

190 FOR I=1 TO L 

200 PRINT "VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO"31;5 

210 INPUT X(1),F(1) 

215 S(0)=S(0)+F(1) 

220 S(1)=S(1)+F(1)XX(I1) 

230 S(2)=S(2)+F(I)XX(1)72 

290 S(3)=S(3)+F(1I)XX(1)3 

250 S(94)=S(94)+F(1)XX(1)4 

260 NEXT 1 

263 N=S(0) 
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265 
270 
280 
290 
300 
310 
320 
330 
340 
349 
350 
360 
370 
380 
390 
400 
410 
420 
470 
440 
450 
460 
470 
430 
490 
499 
500 
510 
520 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
2720 
730 
740 
750 
760 
770 
780 
790 
800 


M=S (1) /N 
FOR I=1 TO L. 
S(6)=S(6)+F(I)X(X(I)-M)"2 
S(7)=S(?)+F(I)L(X(1I)-M)73 
S(8)=S(8)+F(I)X(X(1)-M)"4 
S(5S)=S(5)+F(1)/X(1) 
S(9)1=S(9)+ABS(F(I)K(X(1)-M)) 
S(10)=S(10)*X(1)*F(1) 

NEXT 1 

REM - CALCULO DE PARAMETROS - 
G=S(10)” (1/N) 

H=N/S(5) 

O=SOR(S (2) /N) 

V=S (6) /N 

D=S (9) /N 

Al=M 

A2=S (2) /N 

A3=S (3) /N 

A9=S (4) /N 

M2=5 (6) /N 

M3=S (7?) /N 

M4=S (8) /N 

C=SQR (UV) /M 

Y1=M3/V" (3/2) 

Y2=M4/V72 

REM - SALIDA DE RESULTADOS - 
PRINT 


PRINT "ROA MEDIDAS DE CENTRALIZACION AXAXKXKALKAKK" 


PRINT "MEDIA ARITMETICA 


PRINT "MEDIA GEOMETRICA 
PRINT "MEDIA ARMONICA 
PRINT "MEDIA CUADRATICA 
PRINT 


="5M 


=":6 
="jH 
="58 


PRINT PIRCAAARAAAARARA MEDIDAS DE DISPERSION KK" 


PRINT "VARIANZA 

PRINT "DESVIACION TIPICA 

PRINT "DESVIACION MEDIA 

PRINT "MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN 
PRINT "MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN 
PRINT "MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN 
PRINT "MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN 
PRINT "MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA 
PRINT "MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA 
PRINT "MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA 
PRINT "MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA 
PRINT "COEFICIENTE DE VARIACION 

PRINT 


="54 
="3SOR(V) 
="3D 
="3A1 
="5A2 
="5A3 
=";A4 
="50 
="3M2 
="5M3 
="3M4 


="5C 


PRINT "IRRROOORCAAAAAAAAA MEDIDAS DE FORMA KARA RARA 


PRINT "COEFICIENTE DE ASIMETRIA DE FISHER 


="5Y1 


IFY1>0 THEN PRINT "(DISTRIBUCION SESGADA A LA DERECHA)" 
IFY1<O THEN PRINT "(DISTRIBUCION SESGADA A LA IZQUIERDA)" 


IFY1=0 THEN PRINT "(DISTRIBUCION  INSESGADA)" 
PRINT "COEFICIENTE DE CURTOSIS O APLASTAMIENTO 

IF Y2 >3 THEN PRINT "(DISTRIBUCION LEPTOCURTICA)" 
IF Y2 <3 THEN PRINT "(DISTRIBUCION PLANICURTICA)" 
IF Y2 =3 THEN PRINT "(DISTRIBUCION MESOCURTICA)" 
END 
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ejercicios resueltos: 


1. Examinadas 150 camadas de 8 ratones, respecto del número de ellos 
con pelo liso, se obtuvo la siguiente 
sábila: n?*de ratones 
il con pelo liso 
Calcular: en cada camada 
a) Medias aritmética, geométrica 
armónica y cuadrática. 
b) Varianza, desviación típica, des- 
viación media, momentos de 1%, 2” 


3% y 4” orden respecto al origen 


1 
2 
3 
4 
5 
6 
7 
8 


y respecto a la media y coeficien 


te de variación. 


c) Coeficientes de asimetría y de 
curtosis. 
SOLUCION: 


NUMERO DE DATOS? S 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 1 1 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 2 ó 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 ? 3 13 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 4 50 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 5 2 5 33 
VARIABLE XxX y FRECUENCIA ABSOLUTA F DEL DATO ó ? 6 30 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2? ? ? 17 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO € ? 8 0 
IAAAAAHAAAAAHAR MEDIDAS DE CENTRALIZACION FIA 

MEDIA ARITMETICA = 4.2733333 

MEDIA GEOMETRICA = 4.5630981 

MEDIA ARMONICA = 4,.3026909 

MEDIA CUADRATICA = 4.9531135 

IAAAAAAAAAKAKRAK SR MEDIDAS DE DISPERSIÓN FRRROORORRRIAAA 
VARIANZA = 1.7486222 
DESVIACION TIPICA = 1.3223548 
DESVIACION MEDIA = 1.0951111 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 94.7733333 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 24.533333 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 133.57333 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 761.81333 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 1.7486222 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA =-.2253959793 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 7.9334499 
COEFICIENTE DE VARIACION = .27702964 
IANAOOAAAAAAARARAK MEDIDAS DE FORMA FIAR IIA IEA 
COEFICIENTE DE ASIMETRIA DE FISHER =-.097720029 
(DISTRIBUCION SESGADA A LA IZQUIERDA) 

COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.5945981 


(DISTRIBUCION PLANICURTICA) 
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2. Las calificaciones en Matemáticas de 41 alumnos de una determinada 


clase han sido las siguientes: 
Calcular: 
a) Medias aritmética, geométrica, armónica y 
cuadrática. 

Varianza, desviación típica, desviación me 
dia, momentos de 1%, 2%, 3” y 4% orden res 


y 


b) 


pecto al origen y respecto a la media 
coeficiente de variación. 
c) Coeficientes de asimetría y de curtosis. 
SOLUCION: 


NUMERO DE DATOS? 9 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 2 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 3 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 ? 4 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 5 
VARIABLE X y FRECUENCIA ABSOLUTA F' DEL DATO 5 ? 64 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 7? 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 7 ? 8 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 8 ? 9 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 9 ? 1 


ICRA MEDIDAS DE CENTRALIZACION AKAL 


MEDIA ARITMETICA = 4.4634146 
MEDIA GÉOMETRICA = 4.0565799 
MEDIA ARMONICA = 3.6050244 
MEDIA CUADRATICA = 4.8262494 


IORIOCOOOAAKAR MEDIDAS DE DISPERSION AX RK 


Pw0-Jd0uA un 


, 


tae hd 


VARIANZA = 3.3706127 
DESVIACION TIPICA =" 1.8359229 
DESVIACION MEDIA = 1.4991077 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 4.4634136 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 23.292623 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 136.60976 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 875.87805 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 3.3706127 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 2.5559699 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 30. 458254 
COEFICIENTE DE VARIACION = .41132698 


ARROBA MEDIDAS DE FORMA KAIN RRA 


COEFICIENTE DE ASIMETRIA DE FISHER = .41304032 
(DISTRIBUCION SESGADA A LA DERECHA) a 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.6809412 


(DISTRIBUCION PLANICURTICA) 


n*de alumnos 


REn0wAa O 00 0 


4 
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3. La tabla adjunta muestra el número de semillas germinadas por placa 
y la frecuencia observada en cada caso. 


n?de semillas 
germinadas p/plac 


frecuencia 
observad 


Calcular: 

a) Medias aritmética, geométrica, armónica y cuadrática. 

b) Varianza, desviación típica, desviación media, momentos de 1%, 2%, 3* y 
4% orden respecto a la media y respecto al origen y coeficiente de 


variación. 


c) Coeficientes de asimetría y curtosis. 
SOLUCION : 


NUMERO DE DATOS? 5 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 5 30 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 4 81 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 2? 3 od 
VARIABLE X y FRECUENCIA AESOLUTA F DEL DATO 4 ? 2 24 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 5 ? 1 7 


JONAAAAAAAAAAR MEDIDAS DE CENTRALIZACION FICA 


MEDIA ARITMETICA = 3.5175879 
MEDIA GEOMETRICA = 3.3373362 
MEDIA ARMONICA = 3.0972763 
MEDIA CUADRATICA = 3,.6574423 


FHANAINAAAAAAAAKAA MEDIDAS DE DISPERSION IRRRRRRAOAIORAA 
VARIANZA = 1.0034595 


DESVIACION TIPICA = 1.0017283 
DESVIACION MEDIA = 83967577 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 3.5175879 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 13.3768834 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 53.628141 
MOMENTO DE CUARTO ORDEN RESFECTO AL ORIGEN = 223.58794 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 1.0034595 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA =-.48574074 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 2.8234534 
COEFICIENTE DE VARIACION = .28477703 


FONAOIANAAAAARAARAARAAR MEDIDAS DE FORMA IO 


COEFICIENTE DE ASIMETRIA DE FISHER =-,48323096 
(DISTRIBUCION SESGADA A LA IZQUIERDA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.8040188 


(DISTRIBUCION PLANICURTICA) 


PARAMETROS ESTADISTICOS DE DISTRIBUCIONES 
BIDIMENSIONALES DE DATOS NO AGRUPADOS 


introducción: 


Este programa calcula parámetros estadísticos de distribuciones bi- 
dimensionales de datos no agrupados. La variable bidimensional se introdu- 
ce en la linea 220 bajo dos variables subindicadas X(I), Y(1). 

El coeficiente de correlación lineal da la medida de la dependencia 
que existe entre las dos variables unidimensionales que componen la varia- 


ble bidimensional. 


listado del programa: 


10 REM IRRRORIORIRSIOIOIIOSOOIOIOIOIOIIOIIOIIIOIIIIIIOIIIIIOIIIIIIIOIIIIIIIIOIIIIIIA 
20 REM 


30 REM CALCULO D E PARAMETROS 

40 REM 

50 REM ESTADISTICOS 

60 REM 

70 REM DISTRIBUCIONES BIDIMENSIONALES DE DATOS NO AGRUPADOS 
80 REM 


90 REM IRRADIA IO O II II III ORINAR 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE PARES DE DATOS"; 
130 INPUT N 

140 DIM X(N).Y(N),S(5) 

150 FOR J=1 TO 5 

160 S(J)=0 

170 NEXT J 

180 PRINT 

189 REM-ENTRADA DE DATOS- 

190 PRINT "INTRODUZCA LA X y LA Y DE CADA PAR" 
195 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL PUNTO" 1; 

220 INPUT X(1),Y(I1) 

230 S(1)=S(1)+X(1) 

240 S(2)=S(2)+Y(I) 

250 NEXT I 

260 M1=S(1)/N 

270 M2=S(2)/N 

280 FOR I=1 TO N 


228 ESTADISTICA DESCRIPTIVA 


290 S(3)=S(3)+(X(1)-M1)72 

300 S(9)=S(9)+ (Y(1)-M2)72 

310 S(5)=S(5)+ (X(1)-M1)X(Y(1)-M2) 
320 NEXT 1 

330 V1=S(3)/N 

340 UZ2=S(4)/MN 

350 W1=S(3)/(N-1) 

360 W2=S(4)/(M-1) 

370 C1=S(5)/N 

380 C2=S(5)/(M-1) 

390 R=C1/SOR(V1XUZ) 

399 REM - SALIDA DE RESULTADOS - 


400 PRINT 

410 PRINT "MEDIA ARITMETICA DE LA VARIABLE *X ="53M1 
420 PRINT "MEDIA ARITMETICA DE LA VARIABLE Y ="3M2 
430 PRINT 

440 PRINT "VARIANZA DE LA VARIABLE X ="3V1 
450 PRINT "VARIANZA DE LA VARIABLE Y ="3V2 
460 PRINT 

470 PRINT "CUASIVARIANZA DE LA VARIABLE X =">3w1 
480 PRINT "CUASIVARIANZA DE LA VARIABLE Y ="3w2 
490 PRINT 

500 PRINT "COVARIANZA DE X,Y ="3c1 
510 PRINT "CUASICOVARIANZA DE X,Y ="3C2 
520 PRINT 

530 PRINT "COEFICIENTE DE CORRELACION LINEAL ="3R 
540 PRINT "COEFICIENTE DE DETERMINACION ="3R*2 
550 END 


ejercicios resueltos: 


ds calificaciones en las asignaturas de Física y Matemáticas de 9 


alumncs han sido las siguientes: 


MATEMATICAS 


FISICA 


Calcular los parámetros estadísticos más importantes. 
SOLUCION: 


NUMERO DE PARES DE DATOS? 9 


INTRODUZCA LA XxX y LA Y DE CADA PAR 

X.Y DEL PUNTO 1 2 7.5 8.5 

X.Y DEL PUNTO 2 ? 4.5 =) 

X, Y DEL PUNTO 3 2 3.7 4 

X.Y DEL PUNTO 4 ? 2.5 2.5 

X, Y DEL PUNTO 35 ?2 8.5 9 

X.Y DEL PUNTO é ? 1.5 3 

X.Y DEL PUNTO 7 2 4.5 6 

X.Y DEL PUNTO 8 2 5 5.5 

X.Y DEL PUNTO 9 2 5.5 6 

MEDIA ARITMETICA DE LA VARIABLE X = 4.8 
MEDIA ARITMETICA DE LA VARIABLE Y = S5.6111111 


OOO MANOS 


VARIANZA DE LA VARIABLE X = 4.3422222 
VARIANZA DE LA VARIAELE Y = 4.3765432 
CUASIVARIANZA DE LA VARIABLE *X = 4.885 
CUASIVARIANZA DE LA VARIABLE Y = 4.9236111 
COVARIANZA DE X,Y = 4.2111111 
CUASICOVARIANZA DE X,Y su 4.7375 
COEFICIENTE DE CORRELACION LINEAL = .96599542 
COEFICIENTE DE DETERMINACION = 93314715 


De Los datos siguientes representan los valores de dos constantes bio- 


lógicas de 12 individuos de una cierta población: 


Calcular los parámetros estadísticos más importantes. 
SOLUCION: 


NUMERO DE PARES DE DATOS? 12 


INTRODUZCA LA X y LA Y DE CADA PAR 

Xu Y DEL PUNTO 1 ? 65 es 

Xu Y DEL PUNTO 2 ? 50 29 

X.Y DEL PUNTO 3 2 55 76 

XaY DEL PUNTO 4 ? 65 90 

Xa Y DEL PUNTO 5 ? 55 es 

X,wY DEL PUNTO 6 ? ?0 Y 

Xy Y DEL PUNTO 7% ? 65 94 

X,Y DEL PUNTO 8 ? 20 98 

X.Y DEL PUNTO 9 ? 55 81 

X+«Y DEL PUNTO 10 ? 70 95 

XX Y DEL PUNTO 11 ? 50 76 

X.Y DEL PUNTO 12 ? 50 74 

MEDIA ARITMETICA DE LA VARIABLE X = 60 

MEDIA ARITMETICA DE LA VARIABLE Y = 85 
VARIANZA DE LA VARIABLE X = 62.5 
VARIANZA DE LA VARIABLE Y = 59.5 
CUASIVARIANZA DE LA VARIABLE X = 68.181818 
CUASIVARIANZA DE LA VARIABLE Y = 64.909091 
COVARIANZA DE X,Y = 53.75 
CUASICOVARIANZA DE X,Y = 58.636364 
COEFICIENTE DE CORRELACION LINEAL = .88141407 


COEFICIENTE DE DETERMINACION = ,.776890764 
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3. La temperatura que ha marcado el termómetro los diferentes dias de 


la semana, ha sido: 


Lunes 
Martes 


Miercoles 
Jueves 
Viernes 
Sábado 
Domingo 


Calcular los parámetros estadísticos bidimensionales más importantes. 
SOLUCION : 


NUMERO DE PARES DE DATOS? ? 


INTRODUZCA LA X y LA Y DE CADA PAR 

X, Y DEL PUNTO 1 ? 4 19 

X, Y DEL PUNTO 2 ?-2 18 

X, Y DEL PUNTO 3 ?-3 21 

X.Y DEL' PUNTO 4 ? 1 13 

X.Y DEL PUNTO 5 ? 4 12 

X.Y DEL PUNTO 64 ? O 14 

X, Y DEL PUNTO 7 ? 3 22 

MEDIA ARITMETICA DE LA VARIABLE X = 1 

MEDIA ARITMETICA DE LA VARIABLE Y = 17 
VARIANZA DE LA VARIABLE xX = 6.8571429 
VARIANZA DE LA VARIABLE Y = 13.714286 
CUASIVARIANZA DE LA VARIABLE *X = 8 
CUASIVARIANZA DE LA VARIABLE Y = 16 
COVARIANZA DE X,Y =-2.1428571 
CUASICOVARIANZA DE X,Y =-2.5 
COEFICIENTE DE CORRELACION LINEAL =-.22097087 
COEFICIENTE DE DETERMINACION = .048828125 


PARAMETROS ESTADISTICOS DE DISTRIBUCIONES 
BIDIMENSIONALES DE DATOS AGRUPADOS 


introducción: 


Este programa sirve para calcular parámetros estadísticos de distri 
buciones bidimensionales de datos agrupados. Tanto los valores de X e Y co 
mo la frecuencia absoluta del par (X, Y) se introducen bajo variables sub- 
indicadas en la linea 220. El número de pares de datos N con el que podre- 
mos operar y que dimensiona a las variables anteriores en la linea 140 de- 


penderá en cada caso de la capacidad de la memoria de su micro. 


listado del programa: 


10 REM ARNES OA 
20 REM 


30 REM CALCULO DE PARAMETROS 

40 REM 

50 REM ESTADISTICOS 

60 REM 

70 REM DISTRIBUCIONES BIDIMENSIONALES DE DATOS AGRUPADOS 
30 REM 


90 REM RRA 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE PARES DE DATOS"; 

130 INPUT L 

140 DIM X(L),Y(L)>,F(L),S(6) 

150 FOR J=1 TO é 

160 S(J)=0 

170 NEXT J 

180 PRINT 

189 REM-ENTRADA DE DATOS- 

190 PRINT "INTRODUZCA LA X , LA Y, Y LA FRECUENCIA ABSOLUTA DE CADA PAR" 
200 FOR I=1 TO L 

210 PRINT "X,Y,F DEL PAR"315 

220 INPUT X(1),Y(1),F(I) 

225 S(6)=S(6)+F (1) 

230 S(1)=S(1)+F(I)XX(I1) 

2490 S(2)=S(2)+F(I)XY(1) 

250 NEXT 1 

260 M1=S(1)/S(6) 
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270 M2=S(2)/S(6) 

280 FOR I=1 TO L 

290 S(3)=S(3)+F(1I)X(X(1I)-M1)72 
300 S(4)=5S(94)+F(I)X(Y(1)-M2)2 
310 S(5)=S(5)+F(I)X(X(1)-M1)X (Y (1)-M2) 
320 NEXT 1 

330 V1=S(3)/S(6) 

340 U2=S(4)/51(6) 

350 W1=S(3)/(S(6)-1) 

360 W2=S(4)/(S(6)-1) 

370 C1=S(5)/S(6) 

380 C2=S(5)/(S(6)-1) 

390 R=C1/SOR(VIXVZ) 

399 REM - SALIDA DE RESULTADOS - 


400 PRINT 

410 PRINT "MEDIA ARITMETICA DE LA VARIABLE X ="3M1 
420 PRINT "MEDIA ARITMETICA DE LA VARIABLE Y ="3mM2 
430 PRINT 

440.PRINT "VARIANZA DE LA VARIABLE X ="3V1 
450 PRINT "VARIANZA DE LA VARIAELE Y ="3V2 
460 PRINT 

470 PRINT "CUASIVARIANZA DE LA VARIABLE X ="3w1 
430 PRINT "CUASIVARIANZA DE LA VARIABLE Y ="3w2 
490 PRINT 

500 PRINT "COVARIANZA DE X.Y ="53C1 
510 PRINT "CUASICOVARIANZA DE X,Y ="3Cc2 
520 PRINT 

530 PRINT "COEFICIENTE DE CORRELACION LINEAL ="3R 
540 PRINT "COEFICIENTE DE DETERMINACION ="3R"*2 
550 END 


ejercicios resueltos: 


1. Se han estudiado 35 familias respecto al número de hijos y de hijas 


que tienen, obteniendose los siguientes resultados: 


Calcular los parámetros estadísticos más importantes. 
SOLUCION : 


NUMERO DE PARES DE DATOS? 10 


INTRODUZCA LA 
X.Y. F DEL PAR 
X,Y,F DEL PAR 
X.Y, F DEL PAR 
X,Y.F DEL PAR 
X.Y, F DEL PAR 
XxX Y,F 
X.Y.F 
X.Y.F 


D 


Y, LA FRECUENCIA ABSOLUTA DE CADA PAR 


DEL PAR 
DEL PAR 
DEL PAR 


V0NG5uAdNrx 
E ENEE EEN 
UNrNrOrOF 


Y 
0 
0 
1 
1 
1 
e 
2 
2 


NADA 


X.Y 
X.Y, 


F DEL PAR 9 ? 2 
F DEL PAR 10 ? 3 


3 
3 
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MEDIA ARITMETICA DE LA VARIABLE X 
MEDIA ARITMETICA DE LA VARIABLE Y 


VARIANZA DE LA VARIABLE X 
VARIANZA DE LA VARIABLE Y 


CUASIVARIANZA DE LA VARIABLE X 
CUASIVARIANZA DE LA VARIABLE Y 


COVARIANZA DE X,Y 


CUASICOVARIANZA DE X,Y 


COEFICIENTE DE CORRELACION LINEAL 


COEFICIENTE DE DETERMINACION 


'1.1714286 
1.2285714 


.8277551 
«7477551 


. 85210084 
. 76974279 


. 50367347? 
«512848739 


. 6402041 
. 40986129 
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Le Las calificaciones de 22 alumnos en Matemáticas y Física han sido 


las siguientes: 


MATEMAT . 
FISICA 


NUMERO DE PARES DE DATOS? ? 


INTRODUZCA LA 


X+Y,F DEL 
X,Y,F DEL 
X.Y, F DEL 
XY.F DEL 
X+Y,F DEL 
X,Y,F DEL 
X,Y,F DEL 


MEDIA ARITMETICA DE LA VARIABLE X 
MEDIA ARITMETICA DE LA VARIABLE Y 


VARIANZA DE LA VARIABLE X 
VARIANZA DE LA VARIABLE Y 


CUASIVARIANZA DE LA VARIABLE X 
CUASIVARIANZA DE LA VARIABLE Y 


PAR 
PAR 
PAR 
PAR 
PAR 
PAR 
PAR 


N 600 AdNrx 


y «y y -] 5] «y y E) 


COVARIANZA DE X,Y 
CUASICOVARIANZA DE X,Y 


COEFICIENTE DE CORRELACION LINEAL 
COEFICIENTE DE DETERMINACION 


Y 
ta] 
5 
3 
? 
7 
9 
3 


Nr NdBb—nso 


5 3 3 5 Y 9 1 

5 5 3 7 Y 9 3 

6 4 4 3 2 y 2 
Calcular los parámetros estadísticos más importantes. 


SOLUCION 


LA FRECUENCIA ABSOLUTA DE CADA PAR 


4.2727273 
5.0909091 


3.4710744 
2.7190083 


3.6363636 
2.8484848 


2.6115702 
2.7359307 


. 85008918 
. 72265161 


PROBABILIDAD TOTAL 


introducción: 


Este programa calcula la probabilidad “total de un suceso B conoci- 
das las probabilidades a priori p(a,) de cada uno de los sucesos que compo 


nen el sistema completo de sucesos del experimento y las verosimilitudes 


El teorema de la probabilidad total establece que: 


n 
p(B) = » 


A p(A¡) -p(B/A,) 


listado del programa: 


10 REM IRRSIROAOSIOAOIRIOIOIOIOIOIIORIOIIIIRRIRRRRRRRRRRORR0N009R0R0RRRROROIOOIOICIOAA 
20 REM 

30 REM PROBABILIDAD TOTAL 

40 REM 

50 REM IRRRRSRROSOOIOACIOASIAIOIOIOISIAIOIRIIOIIIOIIIRIRIIIIIRIRRIIOIRII IICA 
100 PRINT 

110 PRINT "NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO"; 

120 INPUT N 

130 PRINT 

140 DIM P(N),B(N) 

150 Ss=0 

159 REM - ENTRADA DE DATOS -— 

160 PRINT "INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SU 
CESO B CONDICIONADA A Ai, P(B/Ai)" 

169 REM 

170 PRINT 

180 FOR I=1 TO N 

190 PRINT "P(A"315") ="3 

200 INPUT P(I) 

209 REM - SALIDA DE RESULTADOS - 

210 PRINT "P(B/A"313") =" 5 

220 INPUT B(I) 

230 PRINT 

240 S=S+P(I)XB(I) 

250 NEXT I 

259 REM - SALIDA DE RESULTADOS - 

260 PRINT 
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270 PRINT "LA PROBABILIDAD TOTAL DEL SUCESO B ES =";S 
220 END 


ejercicios resueltos: 


¡ AA completo de sucesos de un experimento aleatorio está 


formado por 6 sucesos de los que se sabe: 


play) = 0,2 p(B/A;,) = 0,24 p(Az) > Q,1 p(B/A¿) = 0,2 
p(a,) = 0,3 p(B/A,) = 0,65 p(Az) = O,1 p(B/Aj) = 0,1 
p(a3) = 0,2 p(B/A7) = 0,35 p(a,) = 0,1 p(B/A¿) = 0,25 


Se desea conocer la probabilidad total del suceso B. 
SOLUCION :: 


MUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? ó 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO E CON- 
DICIONADA A Ai. P(E/AIi) 


P(A 1 ) =P? .2 
P(B/A 1 ) =?2 .24 
P(A 2) => .3 
P(B/A 2.) =7? ¿65 
P(A 3) =? ,2 
P(B/A 3) =2 .35 
P(A 4 ) =2 .1 
P(B/A 9 ) =2 
PAS) => .l 
P(B/A SS) =2 .4 
P(A 6 ) =? ,1l 
P(B/A 6 ) =7?2 .25 
LA PROBABILIDAD TOTAL DEL SUCESO B ES = .398 


A población y en un determinado menento, es conocen las proba- 
bilidades de que un individuo tenga las enfermedades A, B y C y de que es- 
té sano, siendo estas las siguientes: 

p(A)= 0,02 P(B) = 0,05 p(C) = 0,03 P(S) = 0,9 
Consideremos un síntoma determinado representado por el símbolo D 
Las probabilidades de que se presente dicho síntoma en cada caso anterior 
son: p(D/A)=0,99 p(D/B) = O,1 p(D/C) = 0,4 p(D/S) = O,O1 


Hallar la probabilidad de que se presente el síntoma D 
SOLUCION: 
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NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 4 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai, P(B/Ai) 


P(A 1 ) =? ,02 

P(D/A 1 ) =? .99 

PA 2 ) =? .05S 

P(D/A 2) =? .l 

P(A 3) =? .03 

P(D/A 3 ) =? .4 

P(A 4 ) =2 ,92 

P(D/A 4 ) =2? ,O1 

LA PROBABILIDAD TOTAL DEL SUCESO D ES = .0458 


A sistema completo de un experimento aleatorio está formado por 
los sucesos Ar» Ar y Az tales que sus probabilidades son: p(a,) = 0,3 
p(a,) =0,2 y p(a73) = 0,5. Sea B un suceso cualquiera para el que se cono 
cen las probabilidades: p(B/A,) = 0,29, p(B/A,) = 0,5, p(B/A3) = 0,5 
Hallar la probabilidad total del suceso B. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 3 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B COND 
ICIONADA A Ai. PI(B/AIi) 


P(A 1 ) =2 .3 
P(B/A 1 ) =2 .25 
P(A 2 ) =2 .2 
P(B/A 2) =?2 .5 
P(A 3 ) =2 .5 
P(B/A 3) =? .5 


LA PROBABILIDAD TOTAL DEL SUCESO B ES = .425 


PROBABILIDAD BAYESIANA 


introducción: 


Este programa calcula las probabilidades a posteriori que se obtie 


nen como aplicación del teorema de Bayes, para ello es necesario introducir 


en 


la linea 200 las probabilidades a priori p(A;) y en la linea 220 las ve 


rosimilitudes p(B/A;). 


El teorema de Bayes establece que: 
p(A,) P(B/A,) 


n 
¡EP(a¡) P(B/A,) 


p(A,¡/B) = 


listado del programa: 


10 

20 

30 

40 

50 

100 
110 
120 
130 
140 
150 
159 
160 
CES 
169 
170 
180 
190 
200 
210 
220 
230 
240 
250 
259 
260 


REM RR RR NENE IONES NENE NONE NOMINAR IMEI ENEE EMIR NRO III RINA 
REM 
REM PROBABILIDAD BAYESIANA 
REM 
A 
PRINT 
PRINT "NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO"; 
INPUT M 
PRINT 
DIM P(M),B(N) 
s=0 
REM - ENTRADA DE DATOS - 
PRINT "INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBAEILIDAD DEL su- 
O B CONDICIONADA A Ai, P(B/Ai)" 
REM 
PRINT 
FOR I=1 TON 
PRINT "P(A";51;3") ="; 
INPUT P(I) 
PRINT "P(B/A"313") =" ; 
INPUT B(1I) 
PRINT 
S=S+P(I)XB(I) 
NEXT 1 
REM - SALIDA DE RESULTADOS - 
PRINT 
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270 PRINT "PROBABILIDADES A POSTERIOR 1" 
280 PRINT 

290 REM - OBTENIDAS MEDIANTE EL TEOREMA DE BAYES - 

300 FOR I=1 TO N 

310 PRINT "LA PROBABILIDAD DE (A"31;5"/B) =";3P(I)XB(I)/S 

320 NEXT 1 

330 END 


ejercicios resueltos: 


1. En una población se conocen las probabilidades de que un individuo 
tenga las enfermedades A, B, y C y de que esté sano. siendo estas las si- 
guientes: p(A) = 0,02; p(B) = 0,05; p(C) = 0,03; p(S) = 0,9 

Consideremos un síntoma, representado por el símbolo D. Las probabi 
lidades de que se presente dicho síntoma en cada caso son: 
p(D/A) = 0,99; p(D/B) = 0,4; p(D/C) = O, 1; P(D/S) = O,O1 


Examinado un individuo, se observa que presenta el citado síntoma 
Hallar las probabilidades de que padezcan cada una de las tres enfermeda- 
des o de que esté sano. 
SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 43 


INTRODUZCA LA PROBABILIDAD A FRIORI RFP(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1 ) =? ¿02 

P(B/A 1 ) =2 ¿992 

P(A 2) =P? .¿05 

P(B/A 2.3) =?2 .4 

P(A 3) =? ¿03 

P(B/A 3) =? .1l 

P(A 49 ) =? ,9 

P(E/A 4 ) =?2 ,Ol 
PROBABILIDADES A POSTERIOR II 
LA PROBABILIDAD DE (A 1 /B) = .38223938 
LA PROBABILIDAD DE (A 2 /B) = .38610039 
LA PROBABILIDAD DE (A 3 /E) = .057915058 
LA PROBABILIDAD DE (A 4 /B) = .17379517 


Le En un hospital especializado en enfermedades del torax, ingresan un 
promedio de 50% de enfermos con bronquitis, 30% con neumonía y 20% con gri 


pe. La probabilidad de curación completa de cada una de estas enfermedades 
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es respectivamente O,7; 0,8; O,9. 

Un enfermo ingresado en el hospital ha sido dado de alta completa- 
mente sano. Hallar la probabilidad de que el enfermo ingresara con bronqui 
tis. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 3 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1 ) =9 .5 

P(B/A 1 ) =2?2 .,7 

P(A 2 ) =2 .3 

P(B/A 2 ) =? .8 

P(A 3 ) =P? .2 

P(B/A 3 ) =? ,9 

PROBABILIDADES A POSTERIORI 
LA PROBABILIDAD DE (A 1 /B) = .45454545 

LA PROBABILIDAD DE (A 2 /B) = .31168831 

LA PROBABILIDAD DE (A 3 /B) = .23376623 


3. Se cree que un individuo ha podido contraer las enfermedades A o B 

con probabilidades 0,25 y O,4 respectivamente. 

Para establecer un diagnostico diferencial, se somete al paciente 
a un análisis clínico del que solo se pueden obtener dos resultados positi 
vo Oo negativo. Por la experiencia acumulada en otros casos análogos, se sa 
be que la probabilidad de que el análisis resulte positivo para los que pa 
decen la enfermedad A es 0,04 y 0,07 para los que padecen la enfermedad B. 

Al enfermo se le hace el análisis y da resultado positivo.¿Cuál es 
la probabilidad de que el paciente tuviera la enfermedad A y cuál es la 
probabilidad de que tuviera la enfermedad B. 
SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 2 


INTRODUZCA LA PROBABILIDAD A PRIORI FP(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1 ) => 29 
P(B/A 1 ) =2 .04 
P(A 2) =?2 .4 


P(B/A 2 ) =? ,0? 
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PROBABILIDADES A POSTERIORI 
LA PROBABILIDAD DE (A 1 /B) = .26315789 
LA PROBABILIDAD DE (A 2 /B) = .73684211 


4... producto consta de 6 partes del siguiente modo: 15% de la parte 
As 25% de la parte Ar 20% de la parte Azr 25% de la parte Az! 0,05% de 
la parte Ag! y 0,1% de la parte AG: El laboratorio de control de calidad 
informa que, despues de muchos análisis,se ha determinado que la probabili 


dad de que se produzca un fallo en la parte As es 0,3, en la parte A, es 


2 
0,4, en la parte A es 0,25 


es 0,5, en la parte A, es 0,3, en la parte A 


3 
y en la parte A es 0,1. 


4 5 


Elegida una pieza al azar se analiza y se observa que está defectuo 
sa. Hallar la probabilidad de que el defecto proceda de cada una de las par 
tes. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 6 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1) => .15 

P(B/A 1.) =? .3 

P(AZ2) => .25 

P(B/A 2.) =? .4 

P(A 3) => .2 

P(B/A 3) =? .5 

P(A4) => .25 : 
P(B/4 4.) =? .3 

P(AS5) => .05 

P(B/A 5) =? .25 

PIA6) => .1 

P(B/A 6 ) =? .1 

PROBABILIDADES A POSTERIORI 
LA PROBABILIDAD DE (A 1 /B) = .13138686 

LA PROBABiLIDAD DE (A 2 /B) = .2919708 

LA PROBABILIDAD DE (A 3 /B) = .29197083 

LA PROBABILIDAD DE (A 4 /B) = .2189781 

LA PROBABILIDAD DE (A S /B) = .03649635 

LA PROBABILIDAD DE (A 6 /B) = .02919708 


DISTRIBUCION BINOMIAL 


introducción: 


Este programa permite calcular las probabilidades de la distribución 
binomial, para lo cual es necesario conocer el número de pruebas realizadas 
n, el número de exitos deseados r, (0<r < n) y la probabilidad del suce 
so exito p, (O0O<p+<l). 

La ley de probabilidad de la distribución binomial viene dada por 


la expresión: Sl 
píx = r) = (7) NN - siendo q = 1 - p 


El programa obtiene: 
a) La probabilidad puntual de obtener r exitos en n pruebas. 
b) La probabilidad de obtener un número de exitos < r en n pruebas. 


Cc) La probabilidad de obtener un número de exitos > r en n pruebas. 


listado del programa: 


10 REM IRRRROROSOIOOIOOIOIOIOOIIOOIAIOIOIOIIOIOIOIIOIIOOIOIOIOIOIOIOOIIOIOIRIOIOIIIAIAA 
20 REM 

30 REM DISTRIBUCION BEINOMIAL 
40 REM 

50 REM RRRSORRAIOIOIOO  IIIIONOIO HIIMITIIO O IIIO O IIOIIAIIOIOIIIIIIIA A 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE PRUEBAS REALIZADAS ="; 

120 INPUT N 

130 PRINT "NUMERO DE EXITOS DESEADOS ="; 

140 INPUT X 

150 IF X>N THEN GOTO 400 

150 PRINT "PROBABILIDAD DEL SUCESO EXITO ="; 

170 INPUT P 

179 REM - CALCULO DE LAS PROBABILIDADES - 

1380 Q=1-P 

190 FX=Q"*N 

200 LX=FX 

z10 U=P/Q 

220 M=N+1 

230 IF *X=0 THEN GOTO 280 
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240 FOR I=1 TO X 

250 FX=(M-1)XUXFX/ 1 

260 LX=LX+FX 

270 NEXT I 

230 RX=1+FX-LX 

289 REM -SALIDA DE RESULTADOS - 

290 PRINT 

300 PRINT "LA PROBABILIDAD DE OBTENER"3X5"EXITOS EN"3N;5"PRUEBAS ES 


310 PRINT "LA PROBABILIDAD DE OBTENER <="3X5"EXITOS EN";N;"PRUEBAS ES 

320 PRINT "LA PROBABILIDAD DE OBTENER >="3X3"EXITOS EN"53N;"PRUEBAS ES ="5¿RxX 
330 PRINT 

339 REM - MAS CALCULOS - 


340 PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X”? S/N"; 
350 INPUT C$ 

360 IF C$="N" THEN GOTO 3410 

370 PRINT "Xx =";5 

380 INPUT X 

3920 GOTO 180 

400 PRINT "IMPOSIBLE N HA DE SER MAYOR O IGUAL QUE Xx” 

410 END 


ejercicios resueltos: 


r 
x 


1. La aplicación de un determinado tratamiento a enfermos de cirrosis 


produce una cierta mejoría en el 70% de los casos. Si se aplica el trata - 


miento a 10 enfermos cirróticos, calcular: 

a) ¿Cuál es la probabilidad de que mejoren 4? 
b) ¿Cuál es la probabilidad de que mejoren 5? 
SOLUCION: 


NUMERO DE PRUEBAS REALIZADAS =”? 10 
NUMERO DE EXITOS DESEADOS 
PROBABILIDAD DEL SUCESO EXITO =? .2 


1 
“Y 
b 


LA PROBABILIDAD DE OETENER 4 EXITOS EN 10 PRUEEAS ES = .036756909 
LA PROBABILIDAD DE OBTENER <= 4 EXITOS EN 10 PRUEBAS ES = .047348987 
LA PROBABILIDAD DE OBTENER >= 4 EXITOS EN 10 PRUEBAS ES = .98940792 
DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE XxX? S/N?S 

X=? 5 

LA PROBABILIDAD DE OBTENER S EXITOS EN 10 PRUEBAS ES = 102721935 
LA PROBABILIDAD DE OBTENER <= 5 EXITOS EN 10 PRUEEAS ES = .15026833 
LA PROBABILIDAD DE OBTENER >= 5 EXITOS EN 10 PRUEBAS ES = .95265101 


Z. La probabilidad de que un estudiante obtenga el título de Licencia- 


do en Ciencias Biológicas es 0,3. 

Calcular la probabilidad de que de un grupo de 7 estudiantes: 
a) Finalicen los 7. 
b) Finalicen un número menor o igual a 7 


c) Finalicen un número mayor Oo igual a 7 
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Análogo para O 
SOLUCION: 
NUMERO DE PRUEBAS REALIZADAS =? ? 
NUMERO DE EXITOS DESEADOS =? 7? 
PROBABILIDAD DEL SUCESO EXITO =? .3 
LA PROBABILIDAD DE OBTENER ? EXITOS EN ? PRUEBAS ES = 0002187 
LA PROBABILIDAD DE OBTENER <= 7 EXITOS EN 7? PRUEBAS ES = 1 
LA PROBABILIDAD DE OBTENER >= 7 EXITOS EN 7? PRUEBAS ES = .00021869952 
DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S5/N?S 
x=? 0 
LA PROBABILIDAD DE OBTENER O EXITOS EN 7 PRUEBAS ES = .0823543 
LA PROBABILIDAD DE OBTENER <= O EXITOS EN 7? PRUEBAS ES = .0823543 
LA PROBABILIDAD DE OBTENER >= O EXITOS EN 7? PRUEBAS ES = 1 
DESEA REALIZAR MAS CALCULOS FARA OTRO VALOR DE Xx? S/N?N 


3. La probabilidad de que un individuo vacunado contra una 


fermedad la contraiga es 0,2. 


cierta en 


De un grupo de 8 individuos vacunados,¿cuál es la probabilidad de 


que: 
a) Contraiga 
b) Contraiga 
c) Contraiga 
Análogo para 
SOLUCION: 


2 individuos y 


la enfermecad un solo individuo. 
la enfermedad a lo sumo uno. 


la enfermedad por lo menos uno. 


para 8 indivuos. 


NUMERO DE PRUEBAS REALIZADAS =? 3 
NUMERO DE EXITOS DESEADOS =? 1 
PROBABILIDAD DEL SUCESO EXITO =? .2 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 


X=? 2 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 
=> g 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 


OBTENER 1 EXITOS EN 8 PRUEBAS ES 
OBTENER 1 EXITOS EN 8 FRUEBAS ES 
OBTENER >= 1 EXITOS EN 8 PRUEBAS ES 


<= 


CALCULOS PARA OTRO VALOR DE X? S/N?S 


OBTENER 2 EXITOS EN 8 PRUEBAS ES 


OBTENER <= 2 EXITOS EN 8 PRUEBAS ES 
OBTENER >= 2 EXITOS EN 8 PRUEBAS ES 
CALCULOS PARA OTRO VALOR DE X? S/N?S 
OBTENER 3 EXITOS EN S PRUEBAS ES 

OBTENER <= 8 EXITOS EN 8 PRUEBAS ES 
OBTENER >= 8 EXITOS EN 8 PRUEBAS ES 


CALCULOS PARA OTRO VALOR DE X? S/N?2N 


¿33954432 
«30331648 
. 283222784 


¿29360128 
.79691776 
. 49668352 


2.56E-06 
1 
2.55729729E-06 


DISTRIBUCION DE POISSON 


introducción: 


Este programa permite calcular las probabilidades de la distribución 
de Poisson, para lo cual es necesario conocer el parámetro m de la distri- 
bución de Poisson, asi como el valor de la variable aleatoria discreta pa- 
ra la que se han de efectuar los cátculos. 

La ley de probabilidad de la distribución de Poisson viene dada por 
la siguiente expresión: 
mm _—m 


p(X = r) = ri? 


El programa permite hallar: 
a) La probabilidad puntual de que la variable aleatoria tome el valor r 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor r. 


Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


r. 


listado del programa: 


10 REM IRRRRRRRRORORRRORAORAORORRRRRRRORAORORRRRARORRRORARRRRORDAORAOADODARDORDODACODONLNEAEEXAAAR 


20 REM 

30 REM DISTRIBUCION DE POISSON 

40 REM 

50 REM IRRRRRRROORRRORORORRORRARARRORDARDARROORADARARAOORRORRARORAOADAOARDORDOADACDORNAREOOEOARA 
100 PRINT 


109 REM - ENTRADA DE DATOS - 

110 PRINT "INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON ="; 
120 INPUT Mm 

130 PRINT "VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO ="; 
140 INPUT X 

149 REM - CALCULO DE LAS PROBABILIDADES - 

150 FX=EXP (-M) 

160 LX=FX 

170 IF *X=0 THEN 220 

130 FOR I=1 TO X 

190 FX=FXXM/ 1 

200 LX=LX+FX 

210 NEXT 1 

220 RX=1+FX-LX 


PRINT 
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230 

239 REM - SALIDA DE RESULTADOS - 

240 PRINT 

250 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA — ="3xX3"ES "jFAXA 
260 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <="532x;5"ES "3Lx 
270 PRINT "PROBABILIDAD DE QUE LA VARIAELE ALEATORIA SEA 2="3X;3"ES "¿Ra 
2820 PRINT 

289 REM - MAS CALCULOS - 

290 PRINT "DESEA HACER CALCULOS FARA OTRO VALOR DE 4 7 S/N"; 

300 INPUT C$ 

310 IF C$="N" THEN GOTO 360 

320 PRINT 

330 PRINT "XxX ="; 

340 INPUT X 

3530 GOTO 150 

360 END 


ejercicios resueltos: 


1. Se supone que en un determinado pais la proporción de individuos al 
binos es de 0,005. Calcular la probabilidad de que elegida una muestra de 
la citada población de tamaño 1000, se presenten los siguientes casos: 

a) Ningun individuo sea albino. 

b) Tres individuos sean albinos. 

c) A lo sumo haya tres individuos albinos. 

d) Por lo menos haya tres individuos albinos. 

SOLUCION: 
Al ser p = 0,005 y 


metro de la distribución es 5. 


n = 1000 se cumple que 5. Luego el pará- 


INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON =? 5 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =? O 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 0 ES .006737947 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= O ES .0067379397 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= O ES 1 

DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?S 

Xx =? 3 

PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 3 ES .1403739 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 3 ES .26502592 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 3 ES .87534798 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?N 


2. La probabilidad de que se produzca un choque anafiláctico al sumi- 


nistro de un suero en un individuo es de 0,002. Sea X la variable aleato- 
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ria que representa el número de choques anafilácticos en un grupo de 1200 
enfermos a los que se les ha suministrado el suero. Calcular: 

a) Probabilidad de que se produzcan 5 choques anafilácticos. 

b) Probabilidad de que se produzcan a lo sumo 5 choques anafilácticos. 

c) Probabilidad de que se produzcan por lo menos 5 choques anafilácticos. 
Análogo para 7 choques. 

SOLUCION: 

La variable X sigue trivialmente una distribución binomial. Ahora bien, al 
ser n = 1200 muy grande y p.=0,02 muy pequeño, obtenemos una buena 
aproximación de la distribución binomial mediante la distribución de Pois- 
son de parámetro: m = n.p = 1200.0,02 = 2,4 


INTRODUZCA EL PARAMETRO M DE LA D 
ISTRIBUCION DE POISSON =7? 2.4 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =7? 5 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 5 ES ¿060196079 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 5 ES .96432749 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 5 ES .09586859 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?S 
xXx =?2 7? 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA ES .0082559623 


2 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 7 ES .99666138 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 7 ES .O011594079 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?N 


3. Un almacén farmaceútico recibió 1000 botellines de suero fisiológi- 
CO. La probabilidad de que al transportar los botellines se rompa uno es 


igual a 0,003. Hallar la probabilidad de que al desembalar los botellines, 
resulten: 


a) Haya exactamente 2 rotos. 
b) Haya a lo sumo 2 rotos. 

Cc) Haya por lo menos 2 rotos. 
SOLUCION :: 


El parametro de la distribución de Poisson es: m = n.p = 1000.0,3 = 3 


INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON =? 3 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =? 2 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 2ES  .22404181 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA «¿= 2 ES .42319008 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 2 ES .80085173 


DESEA HACER CALCULOS PARA OTRO VALOR DE X 7? S/N?N 


DISTRIBUCION HIPERGEOMETRICA 


introducción: 


Este programa calcula las probabilidades de la distribución hiper- 
geométrica, para ello es necesario conocer los tres parámetros que caracte 
rizan a esta distribución: el tamaño de la población N, el tamaño de la 
muestra s y la probabilidad del suceso exito p. 

La ley de probabilidad de la distribución hipergeométrica viene da 
da por la siguiente expresión: 

NPy y Ng 
N 
de 


siendo Np y Ngq=N(1-p) números enteros. 


listado del programa: 


10 REM ISSO OOO IO OOOO EA AAA RARA RARA 
20 REM 

30 REM DISTRIBUCION HIPERGEOCOMETRICA 

40 REM 

50 REM IRRRIOSRIOSOSORIOSOSIOOIOOOIOIOIOIIOOIIOOIOIIIOOOIIIIROIRIIOOOIOIOIIOOIOI E AA EA ANARA 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "TAMANO DE LA POBLACION == 

120 INPUT N 

130 PRINT "TAMANO DE LA MUESTRA ="p 

140 INFUT S 

150 PRINT "PROBABILIDAD DEL SUCESO EXITO =";5 

150 INPUT P 

170 PRINT "NUMERO X DE EXITOS DESEADOS ="; 
130 INPUT X 

190 A=NXP 

200 B=X 

210 GOSUE 400 

220 U=C 

230 A=NX(1-P) 

240 B=S-X 

250 GOSUB 400 

260 V=C 
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270 A=N 

230 B=S 

270 GOSUB 400 

300 W=C 

310 T=UXV/W 

319 REM - SALIDA DE RESULTADOS - 

320 PRINT 

330 PRINT "LA PROBABILIDAD DE QUE OCURRAN"; X ¿"EXITOS ES ="3T 
333 PRINT 

339 REM - MAS CALCULOS - 

340 PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X7? S/N”; 
350 INPUT Cs$ 

360 IF C*$="N" THEN GOTO 460 

370 PRINT "X ="; 

380 INPUT X 

390 GOTO 190 

400 REM - SUERUTINA CALCULO DE NUMEROS COMBINATORIOS - 
410 IF B=0 THEN C=1:GOTO 450 

420 FOR J=1 TO B 

430 C=CX(A-J+1)/J 

440 NEXT J 

450 RETURN 

460 END 


ejercicios resueltos: 


1. Por prescripción facultativa un enfermo debe hacer una toma de tres 
píldoras de un determinado medicamento. De las 25 píldoras que contiene el 
envase 5 están en malas condiciones. ¿Cuál es la probabilidad de que de las 
tres píldoras de la toma, una se encuentre en malas condiciones?. 
SOLUCION: 


TAMANO DE LA POBLACION =2 25 

TAMANO DE LA MUESTRA =?2 3 

PROBABILIDAD DEL SUCESO EXITO =? .2 

NUMERO X DE EXITOS DESEADOS =P? 1 

LA PROBABILIDAD DE QUE OCURRAN 1 EXITOS ES = .41304348 


DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N?2N 


PA Una urna de votación contiene 200 papeletas, de las que 160 son para 
el candidato A y 40 son para el candidato B, Se efectuan tres extracciones 
consecutivas sin reemplazamiento de la urna, calcular,¿cuál es la probabili 
dad de que las tres papeletas sean para el candidato A?. 

SOLUCION : 


La variable que representa el número de votos conseguidos por el candidato 
A sigue una distribución hipergeométrica de parámetros: 
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TAMAÑO DE LA POBLACION? 200 

TAMAÑO DE LA MUESTRA? 3 

PROBABILIDAD DEL SUCESO EXITO? .8 

NUMERO DE EXITOS DESEADOS? 3 

LA PROBABILIDAD DE QUE OCURRAN 3 EXITOS ES = .51006548 


3. Una jaula de laboratorio contiene 15 cobayas, de las que 6 son blan 
cas y 9 pardas. Un ayudante de laboratorio con los ojos vendados extrae 
sin reeplazamiento 4 cobayas de la jaula. 

Calcular la probabilidad de que ninguna sea blanca. 


SOLUCION : 


TAMAÑO DE LA POBLACION? 15 
TAMAÑO DE LA MUESTRA? 4 

PROBABILIDAD DEL SUCESO EXITO? .4 

NUMERO DE EXITOS DESEADOS? O 

LA PROBABILIDAD DE QUE OCURRAN O EXITOS ES = .092307692 


DISTRIBUCION NORMAL 


introducción: 


Este programa sirve para Calcular las probabilidades de la distribu 
ción normal de Gauss. Para poder aplicarlo es necesario conocer los paráme 
tros que la caracterizan: media y desviación típica. En el supuesto de que 
no se trate de la normal standard N(O,1) en la linea 270 se realiza la ti 
pificación de la variable. 

La función de densidad de la distribución normal N(m,s), viene dada 
por la expresión : 


x-—m, 2 
E ) 


n|r 


f(x) = a exp (- 
s y2r 


El programa permite calcular: 
a) La ordenada de la función de densidad en el punto x. 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 
Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


X. 


listado del programa: 


10 REM IR II RIMINI RMN MSM SEM HIERRO RN AAA 
20 REM 

30 REM DISTRIBUCION NORMAL 

40 REM 

50 REM IRRITANTE MEROS IEINIIINIIIIR A 
100 PRINT " 

110 DIM A(4) 

120 REM - ENTRADA DE DATOS - 

130 PRINT "MEDIA M ="; 

140 INPUT M 

150 PRINT "DESVIACION TIPICA ="; 

160 INPUT S 

170 PRINT "VALOR DE LA VARIABLE X PARA LA QUE SE DESEA EL CALCULO, X ="; 

180 INPUT *X 

190 REM -COEFICIENTES A(I)- 

200 A(0)=1.330274429 

210 A(1)=-1.821255978 

220 A(2)=1.7?781477937 
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230 A(3)=-.356563782 

240 A(4)=.319381530 

250 B=.2316419 

260 REM - TIPIFICACION DE LA VARIABLE - 
270 Y=ABS((X-M)/S) 

280 Z=EXP(-YXY/2)/2.506628275 

290 FX=Z/S 

300 C=1+BxXY 

310 D=1/C 

320 HO =0 

330 FOR I=0 TO 4 

340 HO=HOXD+A(1) 

350 NEXT 1 

360 HO=HOX*D 

370 RX=ZX*XHO M-8 M M+S 

380 LX=1-RX 

389 REM - SALIDA DE RESULTADOS - 

390 PRINT 

400 PRINT "ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO ="3X3"”"ES "jFX 
410 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <="3X3"ES "¿LX 
420 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >="3X3"ES "¿RX 
430 PRINT 

440 PRINT 

450 PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N”; 

460 INPUT Cs$ 

470 IF C$="N" THEN GOTO 520 

480 PRINT 

490 PRINT "X ="; 

500 INPUT X 

510 GOTO 190 

520 END 


Po 


ejercicios resueltos: 


1. La duración media,sin ninguna rotura,de las sábanas de un Sanatorio 
Psiquiátrico de 300 camas, es de 50 dias con una desviación típica de 8 di 
as. Si suponemos que la duración de las sábanas sigue una distribución nor 
mal, calcular: 

a) ¿Cuál es la probabilidad de que una sábana dure a lo sumo 35 dias?. 


b) ¿Cuál es la probabilidad de que una sábana dure por lo menos 35 dias?. 
Análogo para 60 dias. 
SOLUCION: 


MEDIA M =7 50 
DESVIACION TIPICA =7? 8 


VALOR DE LA VARIABLE X PARA LA QUE SE DESEA EL CALCULO, 4) =?* 3 
ORDENADA DE LA FUNCION DE DENSIDAD EN EL FUNTO 35 ES ¿0085932845 
RROBAEILIDAD DE QUE LA VARIAELE ALEATORIA SEA ¿= 35 ES . 00447 2PÓPZ 
PROBABILIDAD DE QUE LA VARIAELE ALEATORIA SEA >= 35 ES . PISIZIOS 


DESEA REALIZAR MAS CALCULOS FARA OTRO VALOR DE XxX? S/N 7S 


Xx =7? 60 
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ORDENADA DE LA FUNCION DE DENSIDAD EN EL FUNTO 60 ES ¿022831136 
PROBABILIDAD DE GUE LA VARIABLE ALEATORIA SEA <= 640 ES .89435016 
PROBAEILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 60 ES .105694984 


DESEA REALIZAR MAS CALCULOS FARA OTRO VALOR DE XxX? S/N ?N 


E, La medida de un cerrojo de precisión se distribuye según una normal 
N(10; O,1). Tomado un cerrojo al azar se desea saber: 
a) La próbabilidad de que a lo sumo mida 10,01 cms. 
b) La probabilidad de que por lo menos mida 10,01 cms. 
SOLUCION: 


MEDIA mM =? 10 
DESVIACION TIFICA =? .Ol 
VALOR DE LA VARIAELE X PARA LA QUE SE DESEA EL CALCULO, XxX =7? 10.01 


ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO 10.01 ES 24.197072 
PROBABILIDAD DE QUE LA" VARIABLE ALEATORIA SEA <= 10.01 ES .894134474 
PROBABILIDAD DE QUE LA VARIAELE ALEATORIA SEA >= 10.01 ES  .158óé5526 


de Las notas de los alumnos de una clase se distribuyen según una nor- 
mal de parámetros N.(6.5; 1.3). Tomado un alumno al azar se desea saber: 
a) La probabilidad de que a lo sumo tenga una calificacion igual a 7.2. 
b) La probabilidad de que por lo menos tenga una calificación igual a 7.2. 
SOLUCION : 


MEDIA mM =? 6.5 
DESVIACION TIPICA =? "1.3 
VALOR DE LA VARIAELE Xx FARA LA QUE SE DESEA EL CALCULO, X =7? 7.2 


OFDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO 71.2 ES .2é6546975 
FPROBAEILIDAD DE QUE LA VARIABLE ALEATORIA SEA «¿= ?,.2 ES .27048708 
PROEABILIDAD DE QUE LA VARIAELE ALEATORIA SEA >= 7,2 ES ¿2951292 


DISTRIBUCION CHI-CUADRADO 


introducción: 


Este programa calcula las probabilidades de la distribución chi-cua 
drado de Pearson, para ello es preciso conocer unicamente los grados de li 
bertad de la distribución. 

La función de densidad de la distribución chi-cuadrado viene dada 


por la siguiente expresión: 


2 (5-1) 
f(x) = o e , x z 


siendo r la función gamma. 
El programa permite calcular: 
a) La probabilidad de que la variable aleatoria tome el valor x. 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 


Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


listado del programa: 


10 REM RRA ORIO AAA 
ZO REM 


30 REM DISTRIBUCION CHI-CUADRADO 
40 REM 

50 REM DE PEARSON 

60 REM 


70 REM IRSA RIRS 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE GRADOS DE LIBEERTAD"; 

120 INPUT Y 

130 PRINT "VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, ="; 
140 INPUT x 

149 REM - CALCULO DE LA FUNCION GAMMA - 

150 G=1 

1160 IF VU=2X*XINT(V/2) THEN GOTO 219 

169 REM - CALCULO DE G PARA V IMPAR - 


254 DISTRIBUCIONES UNIDIMENSIONALES CONTINUAS 


170 IF V=1 THEN GOTO 210 

180 FOR I=1 TO 2*XINT(V/2)-1 STEP 2 

190 G=G*1/2 

200 NEXT 1 

210 G=6*1.772452851 

219 REM - CALCULO DE G PARA V PAR - 

220 IF V=2 THEN GOTO 260 

230 FOR I=1 TO INT(V/2-1) 

240 G=GXI 

250 NEXT 1 

259 REM - CALCULO DE LAS PROBABILIDADES - 

260 FX=X" (V/2-1) 

270 C=EXP(-X/2) 

280 D=G*X(2" (V/2)) 

290 FX=FXX*XC/D 

300 FC=(X/2)* (V4/2) 

310 FC=FCXC/((V/2)%G) 

320 FD=1 

330 LX=1 v=12 
340 I=2 

350 FD=FD*X/(V+I) <p e 
360 LX=LX+FD 0 
370 IF (FDXFC)>1E-83 THEN 410 

380 LX=LX*XFC 

390 RX=1-LX 

400 GOTO 430 

410 I=1+2 

420 GOTO 350 

429 REM - SALIDA DE RESULTADOS - 

430 PRINT 

440 PRINT 

450 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA ="3X;5 
460 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA <="3X3 "ES "¿LX 
470 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA >="3X; 
480 PRINT 

489 REM - MAS CALCULOS - 

490 PRINT "DESEA HACER MAS CALCULOS PARA OTRO VALOR DE X? S/N "; 
500 INPUT Cs 

510 IF C$="N" THEN GOTO 560 

520 PRINT 

530 PRINT "X ="; 

540 INPUT X 

550 GOTO 150 

560 END 


ejercicios resueltos: 


1. Para una chi-cuadrado con 10 grados de libertad ejecutar el progra- 
ma para X= 20.4 y para x=15.3. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD? 10 
VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X=”? 20.4 


LA PROBABILIDAD DE QUE LA VARIABLE SEA = 20.4 ES .0083821559 
LA PROBABILIDAD DE QUE LA VARIABLE SEA <= 20.4 ES .9743115354 
LA PROBABILIDAD DE QUE LA VARIABLE SEA >= 20.4 ES .025688463 


DESEA HACER MAS 
x=? 15.3 

LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 


DESEA HACER MAS 
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CALCULOS PARA OTRO 


DE QUE: LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


VALOR DE 


SEA 
SEA < 


VALOR DE 


15.3 ES 
15.3 ES 
SEA >= 15.3 ES 


XxX? S/N ?S 


. 033966572 
. 37849883 
¿12150117 


XxX? S/N ?N 
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Ze Ejecutar el programa anterior para una chi-cuadrado con 18 grados 


de libertad, siendo los valores de x: 


SOLUCION : 


NUMERO DE GRADOS DE LIBERTAD? 18 
VALOR DE LA VARIABLE X PARA EL QUE 


LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 
DESEA HACER MAS 
x=? 12.6 

LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 


DESEA HACER MAS 


DE QUE LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


DE QUE LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


36.5; 12.6. 
SE DESEA EL CALCULO, X=? 36.5 
SEA = 36.5 ES . 0013099982 
SEA <= 36.5 ES . 99391535 
SEA >= 36.5 ES .0060846528 
VALOR DE X? S/N ?S 
SEA = 12.6 ES . 056509133 
SEA <= 12.6 ES . 18523335 
SEA >= 12.6 ES .21476665 
VALOR DE X? S/N N 


3. Para una chi-cuadrado con 9 grados de libertad, ejecutar el programa 
para los valores de x = 3, y de x=7. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD? 2 
VALOR DE LA VARIABLE X PARA EL QUE 


LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 
DESEA HACER MAS 
x=? 3 

LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 


DESEA HACER MAS 


DE QUE LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


DE QUE LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


SE DESEA 
SEA = 7 
SEA <= 7? 
SEA >= 7? 
VALOR DE 
SEA = 3 
SEA <= 3 
SEA >= 3 
VALOR DE 


EL CALCULO, X=? 7 
ES .017353306 
ES .060480133 
ES .93951987 


XxX? S/N ?S 


ES .0066077321 
ES .0059508408 
ES .99404916 


XxX? S/N ?N 


DISTRIBUCION t DE STUDENT 


introducción: 


Este programa sirve para Calcular las probabilidades de la distribu 
ción t de Student, para lo cual es necesario conocer el número de grados 
de libertad de la distribución. 

La función de densidad de la distribución t de Student viene dada 


por la siguiente expresión: 


n+1 - (n+1)/2 
e 1 pl 2 ) x* 
A A A 
nT r (3) 


El programa 


permite calcular: 


a) La probabilidad de que la variable aleatoria tome el valor x. 

b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 

Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 
Xx. 

El programa permite calcular: 

a) La probabilidad de que el valor absoluto de la variable aleatoria sea 
menor o igual que un valor x. 

b) La probabilidad de que la variable aleatoria sea menor o igual que un 
valor x. 

Cc) La probabilidad de que la variable aleatoria sea mayor o igual que un 


valor x. 


listado del programa: 


10 
20 
30 


REM 0040002200000 RARAS 
REM 
REM 
40 REM 
50 REM RR INR IIRIIIIIIIIIIIIIIIIIIAIIIIIIIIIIIIAIIIIIIIIIIAAA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE GRADOS DE LIBERTAD"; 

120 INPUT Y 
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130 PRINT "VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, x="; 
140 INPUT *X 

150 X=X/SQR(V) 

160 Z=ATN(X) 

170 IF V=1 THEN GOTO 430 

180 NZ=2XINT (V/2) 

190 IF NZ=V THEN GOTO 310 

199 REM - CALCULOS PARA V IMPAR - 
200 AZ=CO0S(1Z) 

210 TZ=AZ2"*2 

220 VZ=AZ 

230 IF V=3 THEN GOTO 280 

240 FOR I=2 TO V-3 STEP 2 

250 VZ=UZXAIXTZ/ (1+1) 

260 AZ=AZ+VZ 

270 NEXT I 

280 AZ=AZX*XSIN(Z) 

290 AZ=(AZ+Z)X.6366197724 

300 GOTO 400 

309 REM - CALCULOS PARA V PAR - 
310 TZ2=C0S1(Z)?2 

320 VZ=1 

330 Az=1 

340 IF V=2 THEN GOTO 390 

350 FOR I=1 TP V-3 STEP 2 

360 VUZ=UZXIXTZ/(1+1) 

370 AZ=AZ+VZ 

380 NEXT I 

390 AZ=AZX*SINI(Z) 

400 LxX=(1+AZ)/2 

410 RX=1-LX 

420 GOTO 450 

430 AZ=Z*.6366197724 

440 GOTO 400 

449 REM - SALIDA DE RESULTADOS - 


450 PRINT 

460 PRINT "LA PROBABILIDAD DE (-X <= VARIABLE ALEATORIA <= X) ES ="jAZ 
470 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= X ES ="jLX 
480 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= X ES ="j¿RX 


490 PRINT 

499 REM - MAS CALCULOS - 

500 PRINT "DESEA HACER CALCULOS PARA OTRO VALOR DE LA VARIABLE X 7? S/N"; 
510 INPUT CS 

520 IF C$="N" THEN GOTO 570 

530 PRINT 

540 PRINT "X ="j 

550 INPUT X 

560 GOTO 150 

570 END 


ejercicios resueltos: 


l. rara una distribución t de Student con 25 grados de libertad, ejecu- 
tar el programa siendo x = 1,316. 
SOLUCION: 
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NUMERO DE GRADOS DE LIBERTAD? 25 


? 1.316 


LA PROBABILIDAD DE (-X 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


<= 


DESEA HACER CALCULOS PARA 


Z. Ejecutar el programa para una t de Student con 15 


tad, 
SOLUCION: 


siendo los valores de x: 


VARIABLE ALEATORIA 
VARIABLE ALEATORIA SEA 
VARIABLE ALEATORIA SEA >= 


í= 
Q= 


Xx) 


£= 


OTRO VALOR DE LA VARIABLE 


x= 1.35 y Xx 


NUMERO DE GRADOS DE LIBERTAD? 15 


2 d.35 


LA FROBABILIDAD DE (-% 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


l= 
¿= 


DESEA HACER CALCULOS PARA 


Xx =P? 2.316 

LA PROBAEILIDAD DE (-X 
LA PROBABILIDAD DE GUE LA 
LA PROBABILIDAD DE QUE LA 


T= 
S 


DESEA HACER CALCULOS PARA 


VARIABLE ALEATORIA <= Xx) 
VARIABLE ALEATORIA SEA <= 
VARIABLE ALEATORIA SEA >= 


OTRO VALOR DE LA VARIABLE 


VARIABLE ALEATORIA <= 
VARIABLE ALEATORIA SEA 
VARIABLE ALEATORIA SEA >= 


Xx) 


<= 


OTRO VALOR DE LA VARIABLE 


DISTRIBUCIONES UNIDIMENSIONALES CONTINUAS 


ES =-.79988591 
X ES = .89994295 
X ES = .10005705 
X ? S/N?N 


grados de liber- 


= 2.316. 

ES = .80296346 
X ES = .290148173 
X ES = .098518271 
Xx ? S/N?S 

ES . 9648798 
XxX ES = .9824399 
XxX ES = .017560099 
Xx ? S/N?N 


3. Sea una distribución t de Student con 7 grados de libertad, ejecu- 


tar el programa anterior para los valores de x 


SOLUCION : 


NUMERO DE GRADOS DE LIBERTAD? ? 


? ¿025 


LA PROBABILIDAD DE (-X 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


£ 
Q= 


DESEA HACER CALCULOS PARA 


LA 
LA 


LA PROEABILIDAD DE 
LA PROBABILIDAD DE QUE 
LA PROBABILIDAD DE QUE 


C=A 


DESEA HACER CALCULOS PARA 


VARIABLE ALEATORIA <= 
VARIABLE ALEATORIA SEA 
VARIAELE ALEATORIA SEA '= 


Xx) 


¿= 


OTRO VALOR DE LA VARIAELE 


VARIABLE ALEATORIA <= X) 
VARIABLE ALEATORIA SEA <= 
VARIABLE ALEATORIA SEA >= 


OTRO VALOR DE LA VARIABLE 


= 0.025 y x= 0,01 
ES = .019297Z31 

X ES = .509423643 

X ES = .949037636 

xXx ? S/N?2S 
ES = .0076996824 

Xx ES = 50384984 

Xx ES = .99615016 

XxX ? S/N2N 


DISTRIBUCION F DE SNEDECOR 


introducción: 


Este programa calcula las probabilidades de la distribución F de 


Fisher, para lo cual es necesario conocer los grados de libertad de la chi 


cuadrado que se situa en el numerador ny y los de la Chi-cuadrado del deno- 


minador n.,. 


2 
La función de densidad de la distribución F de Fisher viene dada 


por la siguiente expresión: 
A 


a) 


b) 


n 
Y n,¿+n, e 1 
£ n,/2 n,/2 ds xo 
ny/n,(X) = n;, Ba n n (n,+n.)72 
HD 1% mm > 
2 2 q 


El programa permíte calcular: 
El area de la región encerrada bajo curva de la función de densidad 
desde O hasta el valor del estadístico F que corresponda en cada caso. 
El area de la región encerrada bajo la curva de la función de densidad 


desde el valor del estadístico F hasta infinito. 


listado del programa: 


10 
20 
30 
40 
50 
100 
110 
120 
130 
140 
150 
160 
170 
180 
189 
190 


REM ISRRRROIRIRRIRRIRORRRRRRRRRR090999099N909999290920900909N900NROOOOIOIIOIOIOOIOIRAAAR 


REM 

REM D ISTRIBUCION F DE FISHER 

REM 

REM 2984900002820 EA 


PRINT 

REM - ENTRADA DE DATOS - 

PRINT "NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni ="; 
INPUT Ni 

PRINT "NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 ="; 
INPUT N2 

PRINT "VALOR DEL ESTADISTICO F ="; 

INPUT F 

IF F=0 THEN GOTO 420 

REM - CALCULO DE LAS PROBABILIDADES POR APROXIMACION - 

x=1 


260 DISTRIBUCIONES UNIDIMENSIONALES CONTINUAS 


200 IF F<1 THEN GOTO 250 

210 A=N1 : 

220 B=N2 

230 C=F 

240 GOTO 280 

250 A=N2 

260 B=N1 

270 C=1/F 

280 Gi=2/(9*XA) 

220 G2=2/(9XB) 

300 Y=ABS((1-G2)XC" (1/2)-1+61) /SOR(G2XC" (2/3)+61) 

310 IF EX94 THEN 350 

320 X=.5/(1+.176854XY+.115194XY"2+.000349%Y"3+.019527XY"4) 749 
330 X= INT(10000%X+.5)/10000 

340 GOTO 370 

350 Y=YX*(.08%Y"4+1 /B*3) 

360 GOTO 320 

370 IF F>=1 THEN 390 

380 X=1-X 

333 PRINT 

390 PRINT "EL AREA DE LA REGION ENCERRADA DESDE O HASTA";5F;"ES ="3Í1-x 
400 PRINT "EL AREA DE LA REGION ENCERRADA DESDE";F;5"HASTA + INFINITO ES ="jx 
410 PRINT 

419 REM - MAS CALCULOS - 

420 PRINT "DESEA HACER MAS CALCULOS PARA OTRO VALOR DE F7? S/N "; 
430 INPUT C$ 

440 IF C$="N" THEN GOTO 470 

450 PRINT 

459 REM - MAS CALCULOS - 

460 GOTO 120 

470 END 


ejercicios resueltos: 


1. Para una F de Fisher de 12 y 16 grados de libertad, ejecutar el 
programa para el valor del estadístico F = 0.845. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =7? 12 
NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 =7? lá 


VALOR DEL ESTADISTICO F =? .845 


EL AREA DE LA REGION ENCERRADA DESDE O HASTA .845 ES 
EL AREA DE LA REGION ENCERRADA DESDE .2£45 HASTA + INFINITO ES 


. 3892 
.6102 


2. Para una F de Fisher de 13 y 7 grados de libertad, ejecutar el pro- 
grama para el valor del estadístico F= 4.78. 
SOLUCION : 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =? 13 
NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 =? 7 
VALOR DEL ESTADISTICO F =? 4.78 
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EL AREA DE LA REGION ENCERRADA DESDE O HASTA 4.783 ES = 1,7 
EL AREA DE LA REGION ENCERRADA DESDE 3.28 HASTA + INFINITO ES 0 


hi 


DESEA HACER MAS CALCULOS PARA OTRO VALOR DE F? S/N N 


3. Ejecutar el programa de la distribución F de Fisher para una 
tiene 14 y 9 grados de libertad, siendo F = 1,89. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =7? 14 
NUMERO DE GRADOS DE LIBERTAD DEL DENCMINADOR NZ2 =7? 92 

VALOR DEL ESTADISTICO F =? 1,89 

EL AREA DE LA FEGION ENCERRADA DESDE O HASTA 1.879 ES = ,€ 
El. AREA DE LA REGION ENCERRADA DESDE 1.€%9 HASTA + INFINITO ES 1 
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DISTRIBUCION NORMAL DE DOS VARIABLES 


introducción: 


Este programa calcula la función de densidad para los valores x e y 
de las dos variables aleatorias, para ello es preciso conocer las medias 
de ambas variables, las desviaciones típicas de ambas variables y el coefi 
ciente de correlación lineal entre las dos variables. 

La función de densidad de la distribución normal con dos variables 


viene dada por la siguiente expresión: 
(EMX) 2 _ X-MX, ¡Y-MY pra 
En SX 


2R( 54 MES 
exp 


f (x,y) 
27 S,S. Xy ara 2(1 - Rp? ) 


listado del programa: 


10 REM RRA OOOO IRONIA 
20 REM 


30 REM DISTRIBUCION NORMAL 

40 REM 

50 REM DE DOS VARIABLES 

60 REM 

70 REM RR OOO OIR III IEAIICIAAA: 
100 PRINT 

1092 REM - ENTRADA DE DATOS - 

110 PRINT "MEDIA DE LA VARIABLE X, Mx ="; 

120 INPUT Mx . 

130 PRINT "MEDIA DE LA VARIABLE Y, MY ="; 


140 INPUT MY 

150 PRINT "DESVIACION TIPICA DE LA VARIABLE Xi, sx ="; 

160 INPUT SX 

170 PRINT "DESVIACION TIPICA DE LA VARIABLE Y, sY ="; 

120 INPUT SY 

120 PRINT "COEFICIENTE DE CORRELACION, R ="; 

200 INPUT R 

210 PRINT 

220 PRINT "VALOR ¡DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, x="; 
230 INPUT X 

240 PRINT "VALOR DE LA VARIABLE Y PARA EL QUE SE DESEA EL CALCULO, Y =*j 
250 INPUT Y 

259 REM - TIPIFICACION DE LAS VARIABLES - 

260 ZX=(X-MX)/SX 
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270 ZY=(Y-MY)/SY 

280 RF=2X*(1-R*2) 

290 VE=SZX"2+ZV O 2-2ZARAZAXZV 

300 VF=EXF(-UF/RF) 

310 2X=3XXI3V1XSQR(2XRF)XAPI 

320 F=UF/ZX 

330 PRINT 

33% REM - SALIDA DE RESULTADOS - 

340 PRINT "PROBABILIDAD DE QUE X ="3xX3"Y QUE Y ="3Y3"ES ="; 
350 PRINT 

359 REM - MAS CALCULOS - 

360 PRINT "DESEA HACER CALCULOS FARA OTROS VALORES DE X E Y ? 
370 INPUT C$ 

380 IF C$="N" THEN GOTO 400 

390 GOTO 210 

300 END 


ejercicios resueltos: 


S/N"; 
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¡A X una variable aleatoria de media 4,5 y desviación típica 1,6 


e Y otra variable aleatoria de media 6,8 y desviación típica 2,3 y sea el 


coeficiente de correlación lineal 0,89. Hallar la probabilidad de que la 


variable X tome el valor 2 y la variable Y el valor 3. 
Idem para X = 2,5 e Y = 3,8 
SOLUCION: 


MEDIA DE LA VARIABLE *X, Mx =7? 4.5 
MEDIA DE LA VARIABLE Y, MY =? 6.8 
DESVIACION TIPICA DE LA VARIABLE X, SX =? 1l.á 
DESVIACION TIPICA DE LA VARIABLE Y SY =9 2.3 


COEFICIENTE DE CORRELACION, R =? .,89 


VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, xXx =? 
VALOR DE LA VARIABLE Y PARA EL QUE SE DESEA EL CALCULO, Y =2?2 


PROBABILIDAD DE QUE X = 2 Y QUE Y = 3 ES = 023738314 
DESEA HACER CALCULOS PARA OTROS VALORES DE XE Y ? S/N?S 


VALOR DE LA VARIAELE X PARA EL QUE SE DESEA EL CALCULO, x =? 
VALOR DE LA VARIABLE Y FARA EL QUE SE DESEA EL CALCULO, Y =? 


PROBABILIDAD DE QUE X = 2.5 Y QUE Y = 3.8 ES = .039742501 


UN 
0 au 


RECTAS DE REGRESION 


introducción: 


Este programa calcula parámetros estadísticos de distribuciones bi- 


dimensionales, asi como la recta de regresión de x sobre y y de y sobre x 


permitiendo hacer estimaciones de y conocido x y de x conocido y. 


Las expresiones de ambas rectas son las siguientes: 
_ covarianza 


Recta de regresión de y sobre x: O TT x) 
] _ covarianza — 
Recta de regresión de x sobre y: X - X= varianza y Y - y) 


A medida que el coeficiente de determinación R? tiende a 1, ambas 


rectas tienden a confundirse. 


listado del programa: 


10 

ZO 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
179 
130 
190 
200 
210 
219 
220 
230 
240 


REM IRRADIA III IR IIRAIRIRRAIIR A 
REM 


REM DISTRIBUCIONES BIDIMENSIONALES 
REM 

REM RECTAS DE REGRESION 

REM 


REM RRA IOIIIOIOIINIOIIRIOOHIIIR IO II IRIIIIIIIIIRAA 
PRINT 

PRINT "NUMERO DE DATOS CONOCIDOS" ; 

INPUT N 

DIM <(5) 

FOR J=1 TO 5 

S(J)=0 

NEXT J 

PRINT 

REM --ENTRADA DE DATOS-- 

PRINT "INTRODUZCA LA X Y LA Y DE CADA PUNTO" 
FOR I=1i TO N 

PRINT "X.Y DEL PUNTO"; 1; 

INPUT X,Y 

REM --CALCULO DE LAS SUMAS ACUMULADAS-- 
S(1)=S(1)+X 

S(2)=3S(2)+Y 

S(3)=8S(3)+xX"2 


J.R.VIZMANOS 265 


250 S(4)=S5(4)+Y"2 
260 31(5)=S(5)+X%XY 


270 NEXT I 

280 M1=S(1)/MN 

290 PRINT 

300 PRINT "MEDIA DE LA VARIABLE X ="3Mm1 
310 M2=S(2)/N 

320 PRINT "MEDIA DE LA VARIABLE Y ="3M2, 
330 Vi=(S(3)/N)-M12 

340 PRINT 

350 PRINT "VARIANZA DE LA VARIABLE X ="3V1 


360 V2=(S (9) /N)-M2"2 
370 PRINT "VARIANZA DE LA VARIABLE Y ="3V2 


380 PRINT 

390 C=1(S(5)/N)-M1XM2 

399 REM -- ESTIMACION DE VALORES -- 
400 PRINT "COVARIANZA =";,C 

410 Al=C/V1 

420 PRINT 


430 PRINT "COEFICIENTE DE REGRESION DE Y SOBRE X ="3Al1 
440 A2=C/V2 ; 

450 PRINT "COEFICIENTE DE REGRESION DE X SOBRE Y ="5A2 
460 PRINT 

470 B1i=M2-A1XM1 

480 B2=M1-A2XM2 


490 PRINT "LA RECTA DE REGRESION DE Y SOBRE X ES: Y="3A13"XxX+";B1 
500 PRINT "LA RECTA DE REGRESION DE X SOBRE Y ES: —X="54A23"XY+";B2 
Si0 PRINT 

520 PRINT "EL COEFICIENTE DE CORRELACION LINEAL ES =";SQR(AÍ*XAZ) 
530 PRINT "EL COEFICIENTE DE DETERMINACION ES ="3 AÍXA2 

539 REM -- ESTIMACION DE VALORES -- 

540 PRINT 


550 PRINT "SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1" 
560 PRINT "SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2" 
570 INPUT L 

580 PRINT 

590 PRINT "VALORES ESTIMADOS (para acabar el programa pulse 9999)" 
600 IF L=1 THEN 67?0 

610 PRINT 

620 PRINT "Y="; 

630 INPUT Y 

640 IF Y=9999 THEN 220 

650 PRINT "X="3 AZ*XY+B2 

660 GOTO 420 

670 PRINT "X="; 

680 INPUT X 

690 IF X=9999 THEN 2720 

700 PRINT "Y=";A1XX+B1 

710 GOTO 6470 

720 END 


ejercicios resueltos: 


Ls determina la pérdida de actividad de un preparado hormonal en el 
curso del tiempo y se obtiene el siguiente resultado: 


Tiempo (en meses) 
3 Activ. restante 


4 2 3 á 5 
90 73 42 30 21 


266 REGRESION Y CORRELACION 


Se desea saber cuando tiempo en meses tendrán que transcurrir para que la 
actividad restante sea nula. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 5 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 
X, Y DEL PUNTO 1 2 1 290 
Xa Y DEL PUNTO 2 ? 2 TO 
X.Y DEL PUNTO 3 2? 3 42 
XaY DEL PUNTO 4 ? 4 30 
X.Y DEL PUNTO 5 2 5 21 


MEDIA DE LA VARIABLE Xx = 3 
MEDIA DE LA VARIABLE Y 


l 
u 
- 
D 


! 
J 


VARIANZA DE LA VARIABLE A 
VARIANZA DE LA VARIABLE Y = 203.499 


COVARIANZA =-Z3óá.6 


COEFICIENTE DE REGRESION DE Y SOERE x =-13.3 
COEFICIENTE DE REGRESION DE X SOBRE Y =-.052030024 


LA RECTA DE REGRESION DE Y SOERE x E 
LA RECTA DE REGRESION DE X SOBRE Y ES 


a. 
> 


Y=-18.3 Rxt 106.5 


A=-.052030029 XY+ 5.68472492 
EL COEFICIENTE DE CORRELACION LINEAL ES = ¿97573135 
EL COEFICIENTE DE DETERMINACION ES = .95214944 


SI QUIERE ESTIMAR Y CONOCIDO XxX: FULSE 1 
SI QUIERE ESTIMAR + CONOCIDO Y: FULSE 2 


VALRFES ESTIMADOS (para acabar el programa pulse 2999) 


Y=? 0 
x= 5,6394. 9492 meses 


2. En la siguiente tabla se recogen las medidas de la presión sanguinea 


máxima y la edad de 12 mujeres. 


ES 122 160 150 130 113 


Calcular: 


a) Parámetros estadísticos más importantes de la distribución bidimensional 

b) Rectas de regresión de y sobre x, y de x sobre y. 

c) Calcular el valor la presión máxima para mujeres de 30, 45, 70 años de 
edad. ' 

SOLUCION: 
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NUMERO DE DATOS CONOCIDOS? 12 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 
X,Y DEL PUNTO 1 ? 56 147 
X.Y DEL PUNTO 2 ? 42 122 
X.Y DEL PUNTO 3 ? 70 150 
X.Y DEL PUNTO 4 ? 35 118 
X, Y DEL PUNTO 5 ? 64 150 
X.Y DEL PUNTO é ? 427 130 
X, Y DEL PUNTO 7 ? 53' 146 
X.Y DEL PUNTO 8 ? 49 145 
X, Y DEL PUNTO 9 ? 38 113 
X.Y DEL PUNTO 10 ? 42 195 
X.Y DEL PUNTO 11 ? 68 152 
X.Y DEL PUNTO 12 ? 640 155 
MEDIA DE LA VARIABLE X = 52 
MEDIA DE LA VARIABLE Y = 140.25 


VARIANZA DE LA VARIABLE X = 12? 
VARIANZA DE LA VARIABLE Y 220.02083 


COVARIANZA = 145.25 


COEFICIENTE DE REGRESION DE Y SOERE X = 1.1437008 
COEFICIENTE DE REGRESION DE X SOBRE Y 66016476 


LA RECTA DE REGRESION DE Y SOBRE X ES: Y= 1.1437008 X*x+ 380.777559 
LA RECTA DE REGRESION DE X SOBRE Y ES: x= ,ó6601ó647% *XY+-40.588107 


EL COEFICIENTE DE CORRELACION LINEAL ES = .862892517 
EL COEFICIENTE DE DETERMINACION ES = .75503095 


SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1 
SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2 
2 1 


VALORES ESTIMADOS (para acabar el programa pulse 9999) 
x=? 30 

Y= 115,0882858 

x=? 45 

Y= 132.24409 

x=”? 70 

Y= 160.83661 

x=? 9999 


3. Los datos siguientes representan los valores de dos constantes bio- 


lógicas de 12 individuos de una cierta población: 


65. 50 65 55 70 65 7O 55 YO 50 50 55 
85 79 90 85 87 94 98 81 95 76 74 76 VARIABLE Y 


Calcular los parámetros estadísticos de una distribución bidimensio 


nal. Hallar las rectas de regresión de y sobre x, y de x sobre y. 
Estimar que valor de X corresponderá para los valores de Y = 80, Y = 90 
Y = 100. | 
SOLUCÍON: 
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NUMERO DE DATOS CONOCIDOS? 12 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 
X.Y DEL PUNTO 1 ? 65 es 
X.Y DEL PUNTO 2 ? 50 79 
X.Y DEL PUNTO 3 ?2 55 76 
X.Y DEL PUNTO 4 ? 65 90 
X.Y DEL PUNTO 5 ? 55 es 
AY DEL PUNTO é4 ? 7?0 87 
X.Y DEL PUNTO 7 ? 65 94 
X.Y DEL PUNTO 8 ? 70 98 
X.Y DEL PUNTO 9 ? 55 81 
X.Y DEL PUNTO 10 ? 70 95 
X.Y DEL PUNTO “11 ? 50 76 
X.Y DEL PUNTO 12 ? 50 74 


MEDIA DE LA VARIABLE X = 60 
MEDIA DE LA VARIABLE Y = 85 


VARIANZA DE LA VARIABLE X 
VARIANZA DE LA VARIABLE Y 


62.5 
59.5 


COVARIANZA = 53.75 


COEFICIENTE DE REGRESION DE Y SOBRE X 
COEFICIENTE DE REGRESION DE X SOBRE Y 


.86 
. 20336134 


LA RECTA DE REGRESION DE Y SOBRE X ES: Y= .86 XX+ 33.4 
LA RECTA DE REGRESION DE X SOBRE Y ES: X= .P?0336139 XY+-16.785714 


EL COEFICIENTE DE CORRELACION LINEAL ES = .88141407 
EL COEFICIENTE DE DETERMINACION ES = .77689076 


SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1 
SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2 
2 2 


VALORES ESTIMADOS (para acabar el programa pulse 9999) 


Y=? 80 

X= 55.483193 
Y=? 90 

X= 64.516807 
Y=? 100 

x= 73.55042 

Y=? 9999 


REGRESION LINEAL 


introducción: 


Este programa calcula la recta de regresión de y sobre x por el 


método de los mínimos cuadrados, también permite conocer el coeficiente de 


; ' hd : a 2 ; 
correlacion lineal R y el coeficiente de determinación R”, asi como la va- 


rianza y la desviación típica de la estima. Posteriormente se pueden reali 


zar estimas de X para valores conocidos de Y, y estimas de Y para valores 


conocidos de X. 


listado del programa: 


10 

20 

30 

40 

50 

100 
110 
120 
130 
140 
150 
160 
170 
179 
180 
190 
200 
z10 
220 
240 
250 
260 
270 
280 
290 
299 
300 
310 
320 
330 
340 


REM RRA 
REM 
REM REGRESION LINEAL 
REM 
REM RRA 

PRINT 

PRINT "NUMERO DE DATOS CONOCIDOS"; 

INPUT N 

DIM S(5) 

FOR J=1 TO S 

S(J)=0 

NEXT J 

PRINT 

REM - ENTRADA DE DATOS - 

PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO" 

PRINT 

FOR I=1 TON 

PRINT "X,Y DEL DATO";1;5 

INPUT X,Y 

S(1)=S(1)+X 

S(2)=S(2)+Y 

S(3)=S(3)+x"2 

S(4)=8(9)4+Y2 

S(5)=5 (5) +XXY 

NEXT 1 

REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 

C=N%XS (5) -S(2)XS(1) 

D=NXS (3) -S(1)”2 

B=C/D 

A=(S(2)-BXS(1))/N 

PRINT 


270 


350 
360 
370 
380 
390 
400 
410 
420 
430 
490 
450 
460 
470 
480 
490 
500 
si0 
520 
530 
540 
550 
560 
570 
580 
590 
600 


élo0 
620 
630 
640 
700 


PRINT 
S(4)=S 
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"MODELO DE LINEA AJUSTADA 
(4)-S(2)72/N 


S(1)=BX*(S(5)-S(1)%XS(2)/N) 


S(2)=S 


(4)-S(1) 


S(5)=S(1)/S(4) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM -I 
PRINT 
PRINT 
PRINT 
INPUT 
IF P=2 
PRINT 
PRINT 
PRINT 
INPUT 
IF X=9 
PRINT 
GOTO 5 
PRINT 
PRINT 
PRINT 


INPUT 
IF Y= 
PRINT 
GOTO 5 
END 


"COEFICIENTE DE CORRELACION 
"COEFICIENTE DE DETERMINACION 
"VARIANZA DE LA ESTIMACION 


"DESVIACION TIPICA DE LA ESTIMACION 


NTERPOLACION- 


"ESTIMACION DE Y CONOCIDA X 
"ESTIMACION DE X CONOCIDA Y 
P 

THEN 580 

"VALORES ESTIMADOS: 


“x 
X 
999 THEN 700 

"Y ="3A+BXX 

20 

"VALORES ESTIMADOS: 


uy) ="; 

Y 

99992 THEN 200 
"Xx ="j (Y-A)/B 
90 


ejercicios resueltos: 


1. El mismo enunciado que el numerado con 1 del programa anterior. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 12 


pulse 
pulse 


(entre 99992 para acabar 


(entre 9292 para acabar 


5 Aj3"+"53B3 "Xx" 


="3SGR(S(5)) 
="35S(5) 
="35(2)/(N-2) 
="3SOQR(S (2) /(N-2)) 


> 


7 al 


el programa)" 


el programa)” 


INTRODUZCA LAS COORDENADAS X.Y DE CADA PUNTO 
X.Y DEL DATO 1 ? 65 e5 

X.Y DEL DATO 2 ? 50 79 

Xa Y DEL ,DATO 3 ? 55 76 

X+a Y DEL DATO 4 ? 65 90 

X.Y DEL DATO 5 ? 55 es 

X.Y DEL DATO 6 ? 20 e? 

Xa Y DEL DATO 7 ? 65 94 

X.Y DEL DATO 8 ? 70 98 

X.Y DEL DATO 9 ? 55 el 

X.Y DEL DATO 10 ? ?0 95 

X,»Y DEL DATO 11 ? 50 76 

X.Y DEL DATO 12 ? 50 749 

MODELO DE LINEA AJUSTADA Y = 33.9 + .86 *xX 
COEFICIENTE DE CORRELACION = .88141407? 
COEFICIENTE DE DETERMINACION = .277689076 
VARIANZA DE LA ESTIMACION = 15.93 
DESVIACION TIPICA DE LA ESTIMACION = 3.9912404 
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ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
22 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


Y =? 80 
x= 54.186047? 


Y =? 90 
x= 65.813953 


Y =? 9999 


Z. Las calificaciones en Matemáticas y Lengua de 6 alumnos viene dada 


por la siguiente tabla: 


LENGUA 6 a 8 8 9 8 


Ajustar a esta distribución bidimensional una recta de regresión. 


Estimar que calificación le correpondería en Lengua a tres alumnos que hu- 
biesen sacado 7, 9, 15 puntos en Matemáticas. 
SOLUCION 


NUMERO DE DATOS CONOCIDOS? 6 
INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 2 é 

X.Y DEL DATO 2? 3 Ze 

X+ Y DEL DATO 3 ? 3 ] 

Xw Y DEL DATO 4 ? 4 82 

X.Y DEL DATO 5 ? 5 9 

X.Y DEL DATO 6 ? 4 8 

MODELO DE LINEA AJUSTADA Y = 4.4848485 + .90909091 Xx 
COEFICIENTE DE CORRELACION = .?22318618 

COEFICIENTE DE DETERMINACION = ¿25227273 

VARIANZA DE LA ESTIMACION = .19696969 


DESVIACION TIPICA DE LA ESTIMACION = .44381268 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
21 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


x=? 7 
Y = 10.848485 


x=? 9 
Y = 12.666667 


x=? 15 
Y = 18.121212 


Xx =? 9999 
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3. La tabla adjunta muestra el peso en Kgrs y la talla en metros de 
8 individuos. 


[Peso | 65 68 69 70 71 72 73 76 
Talla [1.67 1.65 1.70 1.69 1.72 1.75 1.78 1.75 


Hallar que tallas podemos estimar para cuatro personas cuyos pesos son: 


80, 90, 45 y 50 Kgrs. respectivamente. 
SOLUCION : 


NUMERO DE DATOS CONOCIDOS”? 8 
INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X, Y DEL DATO 1 ? 65 1.67 

X, Y DEL DATO 2 ? 68 1.65 

X.Y DEL DATO 3 ? 69 1.7 

X.Y DEL DATO 4 ? 70 1.69 

X, Y DEL DATO 5 ? 71 1.72 

X,Y DEL DATO ó ? 72 1.70 

X.Y DEL DATO 7? ? 73 1.78 

X.Y DEL DATO 8 ? 76 1.75 

MODELO DE LINEA AJUSTADA Y = .94096149 + .010961539 %X 
COEFICIENTE DE CORRELACION = .82447229 
COEFICIENTE DE DETERMINACION = ¿67973457 
VARIANZA DE LA ESTIMACION = .00073589733 
DESVIACION TIPICA DE LA ESTIMACION = .027127428 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
P 1 

VALORES ESTIMADOS: (entre 99992 para acabar el programa) 


pulse 1 
pulse 2 


Xx =? 80 
Y = 1.8172846 


x=? 90 
Y = 1.9275 


x=? 45 
Y = 1,4342308 


x=? 50 
Y = 1.48903849 


Xx =? 9999 


REGRESION EXPONENCIAL 


introducción: 


Este programa permite ajustar mediante el método de los mínimos cua 
drados, una curva exponencial de la forma y = A.e PX a una nube de pun 
tos, que viene dada por las coordenadas (x,y) de los puntos conocidos. 

Además de la ecuación de la linea ajustada permite conocer el coefi 
ciente de correlación y el de determinación, asi como la varianza y la des 
viación típica de la estima. Posteriormente permite hacer estimaciones de 


y conocido el valor de x, o de x conocido el valor de y 


listado del programa: 


10 REM RRRRRRRROARRARRROROOIOOOOIOIO AI MIRIAM IIA 
20 REM 

30 REM REGRESTICON EXPONENCIAL 
40 REM 

50 REM ARRRRRRRRROORROOROOROOOIOIOOIAOIOIO III JAIR II III RIRS III IINIIARIIAARR 
100 PRINT 

110 PRINT "NUMERO DE DATOS CONOCIDOS"; 

120 INPUT N 

130 DIM S(5) 

140 FOR J=1 TO 5 

150 S(J)=0 

150 NEXT J 

170 PRINT 

179 REM - ENTRADA DE DATOS - 

180 PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO" 

1920 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL DATO";1; 

220 INPUT X,Y 

230 Y=LOG(Y) 

240 S(1)=3(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=S(3)+X"2 

270 S(9)=S(4)+Y"2 

280 S(5)=S(5)+XXY 

290 NEXT I 

2799 REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 
300 C=NXS (5) -S(2)XS(1) 
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310 D=N%*S (3) -S(1)2 

320 B=C/D 

330 A=(S(2)-BXS(1))/N 

340 PRINT 

349 REM - SALIDA DE RESULTADOS - 

350 PRINT "MODELO DE LINEA AJUSTADA Y ="3 EXP(A)3 "XEXP("5B5"x*X)" 
360 S5(9)=S(9)-S(2)*2/N 

370 S(1)=BX(S(5)-S(1)XS(2)/N) 

380 S(2)=S(4)-S(1) 

390 S(5)=S(1)/S(4) 


400 PRINT "COEFICIENTE DE CORRELACION ="3SQR(S(5)) 

410 PRINT "COEFICIENTE DE DETERMINACION ="3S5(5) 

420 PRINT "VARIANZA DE LA ESTIMACION ="35(2)/(N-2) 

430 PRINT "DESVIACION TIPICA DE LA ESTIMACION ="3SQR (S (2) / (N-2)) 
490 PRINT 

450 REM -INTERPOLACION - 

460 PRINT 


470 PRINT "ESTIMACION DE Y CONOCIDA X : pulse 1" 

480 PRINT "ESTIMACION DE X CONOCIDA Y : pulse 2" 

490 INPUT P 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)" 
520 PRINT 

530 PRINT "X ="; 

540 INPUT XX 

550 IF X=9999 THEN 27200 

S5Só0 PRINT "Y ="5jEXP(A)XEXP(BXX) 

570 GOTO 520 

580 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)" 
590 PRINT 

600 PRINT "Y ="; 

610 INPUT Y 

620 IF Y= 9999 THEN 700 

630 PRINT "X ="3LOG(Y/EXP(A))/B 

640 GOTO 590 

700 END 


ejercicios resueltos: 


1. Dados los puntos (5,7; 700); (4,1; 80); (2,5; 15,6); (1,7; 6,45) 
ajústese una curva exponencial. ¿Que valores de y le corresponderán a cua- 
tro puntos que tienen x= 1; x= 6; x= 9; x = 15. 

SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 4 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 5.72 700 

X.Y DEL DATO 2 ? 4.1 30 

X.Y DEL DATO 3 ? 2.5 15.6 

X.Y DEL DATO 4 ? 1.7 6.45 

MODELO DE LINEA AJUSTADA Y = .84395974 *XEXP( 1.15879 XxX) 
COEFICIENTE DE CORRELACION = .99773642 

COEFICIENTE DE DETERMINACION = .99547796 


VARIANZA DE LA ESTIMACION 
DESVIACION TIPICA DE LA ESTIMACION 


. 028790835 
. 16967862 
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ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

21 

VALORES ESTIMADOS: (entre 2922 para acabar el programa) 


Xx => 1 
Y = 2.6889197 
X =P 6 


Y = 882.7919 


=p Y 
28551.35 


< X 


XxX 


=2 15 
= 2722865050 


X 


Xx 


¿A El numero de bacterias por mm? crece en función del tiempo con arre 
glo a la siguiente tabla: 


TIEMPO (horas) 


N* de BACTERIAS 1024 1689 


Ajústese una curva exponencial a los datos observados.Calcúlese 
cuantas horas habrán de trascurrir para que el número de bacterias sea: 
y = 100; y = 200; y = 500; y = 1000; y = 2000. 

SOLUCION: 


NUMERO DE DATOS CONOCIDOS”? S 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 1.5 24 

X,Y DEL DATO 2 ? 2 67 

X, Y DEL DATO 37? 3 124 

X.Y DEL DATO 4 ”? 4 256 

X,Y DEL DATOS? S 473 

X.Y DEL DATO 6 ? 6 789 

X, Y DEL DATO 72 ? 2? 1024 

X, Y DEL DATO 8 ? € 16489 

MODELO DE LINEA AJUSTADA Y = 17.136999 XEXF( .608282274 Xx) 
COEFICIENTE DE CORRELACION = .9774856 
COEFICIENTE DE DETERMINACION = 25547809 
VARIANZA DE LA ESTIMACION = 11145635 
DESVIACION TIPICA DE LA ESTIMACION = .3338508 


ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

» 2 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 
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Y =? 100 
x= 2.8972812 
Y =? 200 


Xx = 4,0357853 


Y =? 500 
x= 5.54082058 


Y =? 1000 
Xx = 6.672930992 


=? 2000 
= 7.817814 


xXx 


REGRESION LOGARITMICA 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 
cuadrados, una curva logarítmica de la forma: y = A + B log (x), a una nu- 
be de puntos que viene dada por” las coordenadas (x,y) de los puntos conoci 
dos. 

Además de la ecuación de la linea ajustada, permite conocer el coe- 
ficiente de correlación y el de determinación, asi como la varianza y la 
desviación típica de la estima. Posteriormente permite hacer estimaciones 


de y conocido x, o de x conocido y. 


listado del programa: 


10 REM III III III III II III III 
20 REM 

30 REM REGRESION LOGARITMICA 
40 REM 

50 REM III III II RIOR III III IICA 
100 PRINT 

110 PRINT "NUMERO DE DATOS CONOCIDOS"; 

120 INPUT ON 

130 DIM S(5) 

140 FOR J=1 TO 5 

150 S(J)=0 

160 NEXT J 

170 R=0 

179 REM - ENTRADA DE DATOS - 

180 PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO" 

190 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL DATO"31; 

220 INPUT X,Y 

230 X=LOG(X) 

240 S(1)=S(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=S(3)+Xx"2 

270 S(4)=S(4)+Y"2 

280 S(5)=S(5)+XXY 
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290 NEXT I ! 

299 REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 
300 C=N*S(5)-S(2)XS5(1) 

310 D=N*S(3)-S(1)*2 

320 B=C/D 

330 A=(S(2)-BX*S(1))/N 

240 PRINT 

349 REM -SALDA DE RESULTADOS - 

350 PRINT "MODELO DE LINEA AJUSTADA Y ="3 Aj"+"¿Bj"XLOG(X)" 
360 S(4)=S(4)-S(2)72/M 

370 S(1)=BX(S(5)-S(1)XS(2)/N) 

380 S(2)=S(4)-S(1) 

390 S(5)=S(1)/S(4) 


400 PRINT "COEFICIENTE DE CORRELACION ="3SBR(S(5)) 

410 PRINT "COEFICIENTE DE DETERMINACION ="35(5) 

420 PRINT "VARIANZA DE LA ESTIMACION ="35(2)/(N-2) 

430 PRINT "DESVIACION TIFICA DE LA ESTIMACION =";SQR(S(2)/(N-2)) 
440 PRINT 

950 REM -I1NTERFOLACION - 

460 PRINT 


470 PRINT "ESTIMACION DE Y CONOCIDA X : pulse 1" 

480 PRINT "ESTIMACION DE X CONOCIDA Y : pulse 2" 

490 INPUT P : 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)” 
520 PRINT 

530 PRINT "X ="; 


540 INPUT X= 

550 IF X=99992 THEN 200 

560 PRINT "Y ="3A+BXLOG(X) 
570 GOTO 520 

580 PRINT "VALORES ESTIMADOS: (entre 99992 para acabar el programa)” 
5920 PRINT 

600 PRINT "Y ="; 

ó610 INPUT Y 

620 IF Y= 9999 THEN 700 

630 PRINT "X ="3EXP((Y-A)/B) 
640 GOTO 590 

700 END 


ejercicios resueltos: 


1. Como consecuencia de la observación de un experimento se han obteni 
do los siguientes puntos: (6; 4,5); (7; 4,7); (3; 4); (14; 5,3); (28; 5,9) 
Ajústese una curva logarítmica y estímese que valores de y corresponderán 
a los valores de x siguientes: x= 10; x = 20; x = 50. 
SOLUCION : 


NUMERO DE DATOS CONOCIDOS? 5 


X.Y DEL DATO 1 ? 6 4.5 

X.Y DEL DATO 2 ? ?2 4.7 

X.Y DEL DATO 3 ? 3 4 

X.Y DEL DATO 4 ? 14 5.3 

X.Y DEL DATO S ? 28 5.9 

MODELO DE LINEA AJUSTADA Y = 3.0170728 + .8ó6186428 XLOG(X) 


COEFICIENTE DE CORRELACION 


29877964 
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COEFICIENTE DE DETERMINACION = .9972536077 
VARIANZA DE LA ESTIMACION = 0017627493 
DESVIACION TIPICA DE LA ESTIMACION = .041985108 


ESTIMACION DE Y CONOCIDA X : pulse 1 
ESTIMACION DE X CONOCIDA Y : pulse 2 
? 1 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


x=”? 10 
Y = 5,0015887? 


xXx =? 20 
Y = 5,.5989875 


x=? 50 
Y = 6.3887057 


Xx =P? 9999 


Za La tabla ajunta muestra los valores correspondientes a dos variables 
X e Y: 


95 1.25 


Ajústese una curva logarítmica y estímese que valores de y corresponderán 
a los valores de x siguientes: x= 100; x= 10; x = 200. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 8 


X.Y DEL DATO 1 ? 15 12.1 

X.Y DEL DATO 2 ? 25 13.4 

XX Y DEL DATO 3 ? 35 14.3 

X+ Y DEL DATO 4 ? 75 16.3 

X+Y DEL DATO 5 ? 95 16.8 

Xy Y DEL DATO 6 ? 125 17.6 

XX Y DEL DATO 7? ? 145 17.9 

Xw+Y DEL DATO 8 ? 215 18.9 

MODELO DE LINEA AJUSTADA Y = 5.1766611 + 2.56153901 XLOG(X) 
COEFICIENTE DE CORRELACION = .99985582 
COEFICIENTE DE DETERMINACION = .929971167 
VARIANZA DE LA ESTIMACION = 0019274477 
DESVIACION TIPICA DE LA ESTIMACION = .043902708 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
e. 4 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


x =? 100 x=? 10 x =? 200 
Y = 16.972989 Y = 11.074825 Y = 18,.748514 


Xx =P? 9999 


REGRESION POTENCIAL 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 
cuadrados, una curva potencial de la forma: y = A xP, a una nube de puntos 
que viene dada por las coordenadas (x,y) de los puntos conocidos. 

Además de la ecuación de la linea ajustada, permite conocer el coe- 
ficiente de correlación y de determinación, asi como la varianza y la des- 
viación típica de la estima. Posteriormente permite hacer estimaciones de 


y conocido x, o de x conocido y. 


listado del programa: 


10 REM 0000220202209) OTTO TT TEFIRERAAA AA 
20 REM 

30 REM REGRESTITION POTENCIAL 

40 REM 

SO REM RRA 0902090920090 OOOO III A 
100 PRINT 

110 PRINT "NUMERO DE-DATOS CONOCIDOS”; 

120 INPUT N 

130 DIm S(5) 

140 FOR J=1 TO S 

150 S(J)=0 

160 NEXT J 

170 PRINT 

179 REM - ENTRADA DE DATOS - 

120 PRINT "INTRODUZCA LAS COORDENADAS X.Y DE CADA PUNTO" 

190 PRINT 

200 FOR I=1 TO MN 

210 PRINT "X,Y DEL DATO";1;5 

220 INPUT X,Y 

225 X=LOG(X) 

230 Y=LOG(Y) 

290 S(1)=S(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=3S(3)+x"2 

270 S(9)=S(94)+Y"2 

280 S(5)=S(5)+XXY 

290 NEXT I 

299 REM - CALCULO DE LOS TOEFICIENTES DE LA ECUACION DE REGRESION - 
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300 C=NXS (5) -S(2)XS(1) 
310 D=NX*S (3) -S(1)2 


320 B=C/D 

330 A=(S(2)-BXS(1))/N 

340 PRINT 

349 REM -SALIDA DE RESULTADOS - 

350 PRINT "MODELO DE LINEA AJUSTADA Y ="3 EXP(A)53"X X "3 


360 S(4)=S(494)-S(2)72/N 

370 S(1)=BX(S(5)-S(1)XS(2)/MN) 

380 S(2)=S5(4)-S(1) 

390 S(5)=S(1)/S5(9) 

400 PRINT "COEFICIENTE DE CORRELACION ="3SQR(S(5)) 
410 PRINT "COEFICIENTE DE DETERMINACION "35(5) 

420 PRINT "VARIANZA DE LA ESTIMACION "35(2)/ (N-2) 
430 PRINT "DESVIACION TIPICA DE LA ESTIMACION ="3SQOR(S (2) / (N-2)) 
440 PRINT 

450 REM -INTERPOLACION - 

460 PRINT 

470 PRINT "ESTIMACION DE Y CONOCIDA X : pulse 1” 

480 PRINT "ESTIMACION DE X CONOCIDA Y : pulse 2” 

490 INPUT P 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)" 
520 PRINT 

S30 PRINT "X ="; 

540 INPUT X 

550 IF X=9999 THEN 200 

560 PRINT "Y ="5EXP(A)XX"B 

570 GOTO 520 


580 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)” 
590 PRINT 

6£00 PRINT "Y ="3 

610 INPUT Y 

620 IF Y= 9999 THEN 700 

630. PRINT "X ="3(Y/EXP(A))”7(1/B) 

640 GOTO 590 

700 END 


ejercicios resueltos: 


1. Como consecuencia de la observación de un experimentos se han obte- 
nido los siguientes puntos: (6; 34); (8; 90); (10; 160); (12; 450). 
Ajústese una curva potencial y estímese que valores de y corresponderán a 
los siguientes valores de x: X= 2, x= 4, x = 20. 

SOLUCION : 


NUMERO DE DATOS CONOCIDOS? 4 


INTRODUZCA LAS COORDENADAS X.Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 6 34 

X.Y DEL DATO 2 ? 8 90 

X.Y DEL DATO 3 ? 10 160 

X.Y DEL DATO 4 ? 12 450 

MODELO DE LINEA AJUSTADA Y = ¿053065158 * X ” 3.5750813 


COEFICIENTE DE CORRELACION = .98879663 
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COEFICIENTE DE DETERMINACION = .272771878 
VARIANZA DE LA ESTIMACION = .039015466 
DESVIACION TIPICA DE LA ESTIMACION = .197352333 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
CS 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


x=? 2 
Y = ¿6324354 
x=? q 


Y = 75374228 


=? 20 
= 23272.3237 


XX 


Z, La tabla adjunta muestra los valores de dos variables X e Y. 


VARIABLE X 2 3 4 9 6 7 


VARIABLE Y 40.23 135.67 320.65 640.68 — 1234.34 1689.78 


Ajústese una curva potencial y estímese que valores de x corresponderán 
a los siguientes valores de y: y = 100, y = 500, y = 1000. 
SOLUCION :: 

NUMERO DE DATOS CONOCIDOS? 6 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 2 2 40.23 

X.Y DEL DATO 2 ? 3 135.67 

X.Y DEL DATO 3 ? 4 320.65 

X.Y DEL DATO 4 ? 5 640.68 

X.Y DEL DATO 5 ? 6 1234.34 

X,Y DEL DATO 6 ? 2? 1689.78 

MODELO DE LINEA AJUSTADA Y = 4.8658196 * X ”* 3.0374737 
COEFICIENTE DE CORRELACION = .99934303 
COEFICIENTE DE DETERMINACION = .9986865 
VARIANZA DE LA ESTIMACION = ,0032866898 
DESVIACION TIPICA DE LA ESTIMACION = .057329659 


ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

2 

VALORES ESTIMADOS: (entre 99992 para acabar el programa) 


Y =? 100 
x= 2.7053021 


Y =? 500 
Xx = 4,5954849 


=? 1000 
= 5.7734675 


Xx 


REGRESION POLINOMIAL 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 


cuadrados, un polinomio de grado G de la forma: 
2 G 


Y == a¿ta¿Xta,X +... tax 


a un conjunto de N puntos conocidos por sus coordenadas (x, y). 

Al ejecutar el programa se imprimen cada uno de los coeficientes 
de la ecuación anterior, los coeficientes de correlación y de determina- 
ción, asi como la varianza y la desviación típica de la estima. 

Posteriormente y una vez que se conoce la ecuación del polinomio 
ajustado, el programa permite realizar estimaciones de y para valores cono 
cidos de x. 

El numero de puntos conocidos N ha de ser mayor estrictamente que 
G+1, ya que de lo contrario, en la linea 740 obtendriamos I negativo o nu 


lo , provocando un error aritmético al sustituir en la linea 810. 


listado del programa: 


10 REM 9729000092002 0RRRRRRRRRRRRRRRORRRORROORORRORDRRORDOOOOOOEARARAAAR 
20 REM 

30 REM AJUSTE POLINONMIAL 

40 REM : 

50 REM RR RRRRRRRRRRORORARROSROROARORORORDORDORDOODOROADEOOOAAAARAAARRAAAARRRAARAR 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE PARES CONOCIDOS"; 

120 INPUT N 

130 PRINT "GRADO DEL POLINOMIO QUE DESEA AJUSTAR"; 

140 INPUT 6G 

145 IF N<=G+1 THEN GOTO 2950 

150 DIM X(N),Y(N),A(G+2),B(2XG+1),C(G+1,G+2) 

160 B(1)=5N 

170 PRINT 

180 PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO"; 

1920 PRINT 

200 FOR I=1 TO N 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
320 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 
620 
629 
630 
640 
650 
660 
670 
679 
680 
690 
700 
710 
220 
730 
740 
750 
760 
770 
780 
790 
800 
s10 
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PRINT "X,Y DEL DATO";1;5 
INPUT — X(I),Y(I) 


FOR J=2 TO 2%*G+1 


B(J)=B(J)+X(1)7 (J-1) 
NEXT J 

FOR K=1 TO G+1 
C(K,G+2)=A (K)+Y(1)%XX(1)” (K-1) 
A(K)=C (K,G6+2) 

NEXT K 

A(G+2)=A (G+2)+Y(1)2 
NEXT 1 

FOR J=1 TO G+1 

FOR K=1 TO G+1 
C(J,K)=B(K+J-1) 

NEXT K 

NEXT J 

FOR J=1 TO G+1 

K=J 

IF C(K.J)=0 THEN 580 
FOR I=1 TO G+2 
D=C(J,1) 
C(J,1)=C(K,1) 
C(K,I)=D 

NEXT 1 

H=1/C(J,J) 

FOR I=1 TO G+2 
C(J.1)=HXC(J,1) 

NEXT I 

FOR K=1 TO G+1 

IF K=J THEN 550 
H=-C(K,J) 

FOR I=1 TO G+2 
C(K,TI)=C(K,1)+HX*XC(J,1) 
NEXT 1 

NEXT K 

NEXT J 

GOTO 620 

K=K+1 

IF Ke<=G+1 THEN 390 
PRINT "LA SOLUCION NO ES UNICA" 


GOTO 960 

PRINT 

REM - SALIDA DE RESULTADOS - 

FOR J=0 TO G 

PRINT "COEFICIENTE DE GRADO";J;"="5C(J+1,G+2) 
NEXT J 

PRINT 

PRINT 

REM - CALCULO DE LOS PARAMETROS DEL AJUSTE - 
L=0 

FOR J=2 TO G+1 

M=A(J)-B(J)XA(1)/N 

L=L+C(J3,6+2)%M 

NEXT J 

P=A(6+2)-A(1)72/N 

I=N-G-1 

H=P-L 

R=L/P 

PRINT 

PRINT "COEFICIENTE DE CORRELACION ="3SQRIR) 
PRINT "COEFICIENTE DE DETERMINACION ="3R 
PRINT "VARIANZA DE LA ESTIMA ="3H/1 
PRINT "DESVIACION TIPICA DE LA ESTIMA =";SQR(H/I) 


3220 PRINT 

829 REM - INTERPOLACION -— 
230 PRINT "VALORES ESTIMADOS: 
840 PRINT 

850 PRINT "x="; 


2860 INPUT X 
870 IF X=9999 THEN 960 
880 L=C(1,G+2) 
290 FOR J=1 TO G 

900 L=L+C(J+1,G+2)*XX"J 
910 NEXT J 


920 PRINT 


930 PRINT 
940 GOTO 840 


950 PRINT 


960 END 


" ="sL 


(ENTRE 9999 PARA ACAEAR EL PROGRAMA)" 


ejercicios resueltos: 


1. Ajustar una parábola a los datos siguientes: 
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"NO SE PUEDE AJUSTAR MEDIANTE UN POLINOMIO DE 
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Estimar que valor le corresponderá a y para los valores de x siguientes: 


x= 75, 


x = 


100. 


SOLUCION: 


NUMERO DE PARES CONOCIDOS? 2? 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? 2 


Y DEL 
Y DEL 
X.Y DEL 
Xs Y DEL 
X.Y DEL 
Y DEL 
Y DEL 


DATO 
DATO 
DATO 
DATO 
DATO 
DATO 
DATO 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


COEFICIENTE 
COEFICIENTE 
VARIANZA DE LA ESTIMA 


DESVIACION TIPICA DE LA ESTIMA 


VALORES ESTIMADOS: 


x=? 75 


Y = 307, 


875 


NTRODUZCA LAS 


DE 
DE 


COORDENADAS X,Y DE CADA PUNTO 


? 50 31 

? 52 50 

? 54 LR 

? 56 96 

? 58 112 

? 60 130 

? 62 162 

GRADO O =-364.00004 

GRADO 1 = 5.8333347 

GRADO 2 = .041666655 

CORRELACION = .99630943 

DETERMINACION = .99263248 
= 22.916667 
= 4.7871355 


(ENTRE 9299 PARA ACABAR EL PROGRAMA) 
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x=? 100 
Y 


= 635.99998 


x=? 9999 


REGRESION Y CORRELACION 


2. Ajustar una cúbica a los datos siguientes: (4, 12), (5, 16), (6, 21) 


CP, 25) 18, 


para x = 6, 


ON 


Ep 
x= 10, 
SOLUC II 


Xx = 


NUMERO DE PARES CONOCIDOS? 5 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? 3 


INTRODUZCA L 
X.Y DEL DATO 
X.Y DEL DATO 
X.Y DEL DATO 
X.Y DEL DATO 
X.Y DEL DATO 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


COEFICIENTE 
COEFICIENTE 


VARIANZA DE LA ESTIMA 


AS COORDENADAS X,Y DE CADA PUNTO 


E 


cn 


12 
16 
21 
25 
31 


O =-16.214296 
1= 10.245243 
2 =-1.2857152 
3= .083333384 


DE CORRELACION 
DE DETERMINACION 


DESVIACION TIPICA DE LA ESTIMA 


VALORES ESTIMADOS: 


x=”? 6 
Y = 20.57142 


x=? 10 
Y = 47.00000 


x=? 20 
Y = 353.0715 


x=? 9999 


3. Ajústese 


(2, 7), (3, 
(Lo, 21). 


¿Que valores de 
SOLUCION 


9 


3 


? 


2, 


= .9991953 


.99839125 
. 357142831 
.59761426 


(ENTRE 22992 PARA ACABAR EL PROGRAMA) 


Posteriormente, estimar los valores de y correspondientes 
20. 


un polinomio de grado 6% al conjunto siguiente de datos: 
(9, 


(4, 


y se estiman ¡para puntos que tienen: 


12), 


(5, 


12), 


(6, 12), 


(7, 


14), 


(8, 17), 


x = 10, 


Xx 


18), 


20, 


x= 25? 
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NUMERO DE PARES CONOCIDOS? 2 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? á 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 
X.Y DEL DATO 1 2? 2 ? 

X,Y DEL DATO 2 ? 3 2 

Mia Y DEL DATO 3 ? 4 12 

X.Y DEL DATO 4 ?2 S 12 

Xy Y DEL DATO S 7 é 12 

X.Y DEL DATO é ? 2? 14 

X.Y DEL DATO 2? ? 8 17 

Xy Y DEL DATO 8 ? 9 13 

X.Y DEL DATO 9 ? 10 zl 

COEFICIENTE DE GRADO O = 141.19584 
COEFICIENTE DE GRADO 1 =-189.70576 
COEFICIENTE DE GRADO 2 = 102.127999 
COEFICIENTE DE GRADO 3 =-26.894301 
COEFICIENTE DE GRADO 4 = 3.7166853 
COEFICIENTE DE GRADO 5 =-.25849862 
COEFICIENTE DE GRADO éá = .0071361728 
COEFICIENTE DE CORRELACION = .99997232 
COEFICIENTE DE DETERMINACIÓN = ¿9299295665 
VARIANZA DE LA ESTIMA = .0034298301 
DESVIACION TIPICA DE LA ESTIMA = .0585é64751 


VALORES ESTIMADOS: (ENTRE 929992 PARA ACABAR EL FROGRAMA) 


x=? 10 
Y = 20.997296 


=? 20 
Y = 46253.759 


- 
X=? 25 


Y = 30869%.8 


x=? 9999 
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TOMO 1 - ALGEBRA Y GEOMETRIA 
ALGEBRA 


1.- Sistemas de numeración. 1.1 Cámbio de base de sistema de numeración. 1.2 Operaciones en cualquier 
sistema de numeración. 

2.- Ecuaciones diofánticas. 2.1 Ecuaciones diofánticas del tipo: Ax + By =C. 2.2 Ecuaciones diofánticas del 
tipo: x? — y? = A. 2.3 Ecuaciones diofánticas del tipo: x? + y? = z?. 2.3.1 Números pitagóricos consecutivos. 
2.3.2 Ternas pitagóricas. 

3.- Divisibilidad. 3.1. Descomposición de un número en factores primos. 3.2 M.C.D. y M.C.M. de dos núme- 
ros. 3.3 M.C.D. y M.C.M. de tres números. 3.4 Lista de números primos. 3.5 Formación ordenada de los 
divisores de un número. 3.6 Número de divisores de un número (suma y producto). 3.7 Números perfec- 
tos pares. 3.8 Números amigos. 3.9 Números de Mersenne. 3.10 Números de Fermat. 3.11 Múltiplos de 
un número K. 3.12 Múltiplos de K entre dos números dados. 3.13 Múltiplos comunes de dos números. 

4.- Números congruentes. 4.1 Clases de restos módulo M. 4.2 Exponente de P en MI! (regla de Legendre). 
4.3 Restos potenciales. 4.4 Cálculo de la última cifra de una potencia. 4.5 Cálculo del resto de dividir una 
potencia por M. 4.6 Restos cuadráticos. 

5.- Combinatoria. 5.1 Factorial de un número. 5.2 Número de cifras del factorial de un número. 5.3. Facto- 
rial de un número con todas sus cifras. 5.4 Combinaciones sin repetición. 5.5 Variaciones sin repetición. 
5.6 Formación ordenada de las variaciones sin repetición. 5.7 Permutaciones sin repetición. 5.8 Forma- 
ción ordenada de las permutaciones sin repetición. 5.9 Combinatoria sin repetición. 5.10 Combinaciones 
con repetición. 5.11 Variaciones con repetición. 5.12 Formación ordenada de las variaciones con repeti- 
ción. 5.13 Permutaciones con repetición. 5.14 Triángulo de Tartaglia. 5.15 Binomio de Newton. 

6.- Polinomios. 6.1 Valor numérico de un polinomio. 6.2 Suma y diferencia de polinomios. 6.3 Producto de 
un escalar por un polinomio. 6.4 Producto de un polinomio por el binomio (x + a). 6.5 Produc'o de polino- 
mios. 6.6 Regla de Ruffini. 6.7 Cociente de polinomios. 

7.- Espacios vectoriales. 7.1 Coordenadas de un vector respecto de una base. 7.2 Cambio de base. 

8.- Matrices y Determinantes. 8.1 Suma de las filas y las columnas de una matriz. 8.2 Matriz transpuesta. 
8.3. Suma y diferencia de matrices. 8.4 Producto de un escalar por una patriz. 8.5 Producto de matrices. 
8.6 Potencia de una matriz. 8.7 Determinante de una matriz cuadrada. 8.8 Matriz inversa. 8.9 Descompo- 
sición de una matriz cuadrada en suma de dos matrices una simétrica y otra hemisimétrica. 8.10 Resolu- 
ción de sistemas de ecuaciones lineales. 8.11 Ecuación característica de una matriz. 8.12 Valores pro- 
pios de una matriz. 8.13 Vectores propios de una matriz. 


GEOMETRIA 


1.- Geometría elemental. 1.1 Areas de triángulos y cuadriláteros. 1.2 Longitudes y áreas en la circunferen- 
cia. 1.3 Relaciones métricas en el triángulo. 1.4 Polígonos regulares: ángulos y diagonales. 1.5 Polígonos 
regulares: área en función del lado. 1.6 Polígonos regulares: área en función del radio de la circunferencia 
circunscrita. 1.7 Areas y volúmenes de los poliedros regulares. 1.8 Areas y volúmenes de cuerpos geo- 
métricos. 

2.- Plano afín. 2.1 Operaciones con vectores en el plano afín. 2.2 Cambio de sistema de referencia en el pla- 
no afín. 2.3 Determinación de rectas en el plano afín. 2.4 Incidencia, paralelismo e intersección en el pla- 
no afín. 

3.- Plano afín euclideo. 3.1 Conversión de ángulos. 3.2 Operaciones con vectores en el plano afín euclideo. 
3.3 Angulos y bisectrices de rectas en el plano afín euclideo. 3.4 Distancias en el plano afín euclideo. 
3.5 Areas en el plano afín euclideo. 3.6 Cálculo de puntos notables en un triángulo. 3.7 Resolución de 
triángulos rectángulos. 3.8 Resolución de triángulos cualesquiera. 

4.- Transformaciones en el plano. 5.1 Movimientos en el plano. 5.2 Homotecia en el plano. 5.3 Semejanza 
en el plano. 

5.- Cónicas. 5.1 Circunferencia. 5.2 Potencia de un punto respecto de una circunferencia. 5.3 Elipse. 5.4 Hi- 
pérbola. 5.5 Parábola. 5.6 Clasificación y reducción de cónicas. 

6.- Espacio afín. 6.1 Operaciones con vectores en el espacio afín. 6.2 Cambio de sistema de referencia en el 
espacio afín. 6.3 Determinación de rectas en el espacio afín. 6.4 Determinación de planos en el espacio 
afín. 6.5 Incidencia, paralelismo e intersección en el espacio afín. 

7.- Espacio afín euclideo. 7.1 Operaciones con vectores en el espacio afín euclideo. 7.2 Angulos en el espa- 
cio afín euclideo. 7.3 Distancias en el espacio afín euclideo. 7.4 Areas y volúmenes en el espacio afín eu- 
clideo. 

8.- Transformaciones en el espacio. 8.1 Movimientos en el espacio. 8.2 Homotecia en el espacio. 8.3 Se- 
mejanza en el espacio. 


ANEXO. |. Ordenación alfabética de nombres. Il. Ordenación ascendente de números. 
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